Помогите пожалуйста Дан массив из 10 элементов. Ввести этот массив с клавиатуры. Найти...

0 голосов
29 просмотров

Помогите пожалуйста Дан массив из 10 элементов. Ввести этот массив с клавиатуры. Найти количество элементов равных 5 Самостоятельная из 9 класса


Информатика (73 баллов) | 29 просмотров
0

Паскаль?

0

Да

0

Я, вроде как, у автора спрашиваю.

0

Наверное

0

Да паскаль

Дан 1 ответ
0 голосов

Язык: Pascal

var i, k: integer;
a: array[1..10] of integer;

begin
for i:=1 to 10 do readln(a[i]);
for i:=1 to 10 do if a[i] = 5 then k := k+1;
writeln(k);
end.

(26 баллов)
0

А что оно должно выводить?