Составить программу для решения следующей задачи: Дан массив А целых чисел в интервале [-10 ... 10]. Подсчитать в нем количество элементов, равных 5

Решение на Turbo Pascal.

uses crt;

var mas: array [1 ... 15] of integer;

i, k: byte;

begin

clrscr;

randomize;

for i:=1 to 15 do

begin

mas[i]:=random (5);

write (mas[i],' ');

end;

writlen ('New massiv');

for i:=1 to 15 do

begin

if mas[i]=5 then k:=k+1 else mas[i]:=1;

write (mas[i],' ');

end;

readln;

end.