Напишите пожалуйста объяснения к этой программе program crr; uses crt; var i,k:integer;a,b:real; c:array[1..1000] of integer; begin clrscr; randomize; for i:=1 to 1000 do c[i]:=random(10); writeln('vvedite a');readln(a); wr...
Напишите пожалуйста объяснения к этой программе
program crr;
uses crt;
var i,k:integer;a,b:real; c:array[1..1000] of integer;
begin
clrscr;
randomize; for i:=1 to 1000 do
c[i]:=random(10);
writeln('vvedite a');readln(a);
writeln('vvedite b');readln(b);
k:=0;
for i:=1 to 1000 do
if (c[i]>a) and (c[i] writeln(k); readln;
end.
Гость
Ответ(ы) на вопрос:
Гостьif (c[i]>a) and (c[i] writeln(k); readln;
В этой строке ошибка
Не нашли ответ?
Похожие вопросы