Помогите пожалуйста
Дан массив из 10 элементов. Ввести этот массив с клавиатуры. Найти количество элементов равных 5
Самостоятельная из 9 класса
Ответы
Ответ дал:
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.
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.
Ответ дал:
0
А что оно должно выводить?
Вас заинтересует
1 год назад
1 год назад
2 года назад
7 лет назад
8 лет назад
8 лет назад