Предмет: Информатика,
автор: ireenb
В заданном массиве a [1..10] of integer определить количество элементов, которые больше заданного К
Ответы
Автор ответа:
0
var
a:array [1..10] of integer;
b,i,k:integer;
begin
for i:=1 to 10 do read(a[i]);
for i:=1 to 10 do
if a[i]>k then b:=b+1;
writeln(b);
end.
a:array [1..10] of integer;
b,i,k:integer;
begin
for i:=1 to 10 do read(a[i]);
for i:=1 to 10 do
if a[i]>k then b:=b+1;
writeln(b);
end.
Похожие вопросы
Предмет: Информатика,
автор: ata221
Предмет: Английский язык,
автор: fain77
Предмет: Математика,
автор: happysuuue
Предмет: Алгебра,
автор: bogdanovarena
Предмет: Математика,
автор: кошкачапа