Нати номера тех частей массива , значение которых больше заданного числа

Var
c,n,k,i:integer;
a:array[1..1000] of integer;
begin
write('Write size array: '); readln(n);
write('Write c: '); readln(c);
k:=0;
for i:=1 to n do
begin
read(a[i]);
if a[i]gt;c
then inc(k);
end;
writeln(k);
readln;
readln
end.

Алиса Симанушкина 2019-08-28 06:35:50

var c,n,,i:integer; a:array[1..1000] of integer;begin write('Write size array: '); readln(n); write('Write c: '); readln(c); for i:=1 to n do begin read(a[i]); if a[i]>c then write(a[i],' '); end; readln; readlnend.

Нелли Гольденгеэшель 2019-08-28 06:41:23

Исправилошибку

Евгений Окормилин 2019-08-28 06:45:27

c,n,i:integer;a:array[1..1000] of integer;beginwrite('Write size array: '); readln(n);write('Write c: '); readln(c);for i:=1 to n dobeginread(a[i]);if a[i]>cthen write(a[i],' ');end;readln;readlnend.

Дмитрий Загинайлов 2019-08-28 06:51:15

Я тупой)

София Голевина 2019-08-28 06:52:26

varc,n,i:integer;a:array[1..1000] of integer;beginwrite('Write size array: '); readln(n);write('Write c: '); readln(c);for i:=1 to n doread(a[i]);for i:=1 to n do if a[i]>cthen write(a[i],' ');readln;readlnend.

О проекте

Нати номера тех частей массива , значение которых больше заданного числа

Добро пожаловать!