Предмет: Информатика,
автор: kurakov
24. В массиве X(1:10) каждый элемент равен 0, 1 или 5 (заполнить с клавиатуры). Посчитать количество пятерок.
Ответы
Автор ответа:
0
var
x:array[1..10] of real;
i,n:integer;
begin
for i:=1 to 10 do begin
writeln('Введите лемент №',i);
readln(x[i]);
if x[i]=5 then
inc(n);
end;
writeln('Всего пятерок ',n);
end.
x:array[1..10] of real;
i,n:integer;
begin
for i:=1 to 10 do begin
writeln('Введите лемент №',i);
readln(x[i]);
if x[i]=5 then
inc(n);
end;
writeln('Всего пятерок ',n);
end.
Похожие вопросы
Предмет: Алгебра,
автор: angelinakocuro
Предмет: Литература,
автор: darinamusina09
Предмет: Другие предметы,
автор: pogosyanmilena999
Предмет: Математика,
автор: aboyarchuk