Question

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

Answer 1

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]>c
    then inc(k);
  end;
 writeln(k);
 readln;
 readln
end.

Answer 2

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;
readln
end.

Answer 3

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

Answer 4

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;
readln
end.

Answer 5

Я тупой)

Answer 6

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
read(a[i]);
for i:=1 to n do
if a[i]>c
then write(a[i],' ');
readln;
readln
end.