Исправьте ошибку в программе

program 1cl;

var a:array[1 ... 50] of integer;

i, j, k, s:integer;

begin

randomize;

for i=1 to 50 do

begin

a (i) : = rondom (50) - 20;

write (a[i],');

end;

for i:=1 to 50 do;

begin

if a [i]0 then k:=k+1;

if a[i]then s : = s+a[i];

end;

writeln (k=, k);

writeln ('s=', s);

readln;

end.

Question

Информатика

Авдий

7 июня, 03:01

Исправьте ошибку в программе

program 1cl;

var a:array[1 ... 50] of integer;

i, j, k, s:integer;

begin

randomize;

for i=1 to 50 do

begin

a (i) : = rondom (50) - 20;

write (a[i],');

end;

for i:=1 to 50 do;

begin

if a [i]0 then k:=k+1;

if a[i]then s : = s+a[i];

end;

writeln (k=, k);

writeln ('s=', s);

readln;

end.

+2

Ответы (2)

Знаешь ответ?

Арон · Answer 1

Я синтаксис этого старя уже не помню но в строке a (i) : = rondom (50) - 20; скорее всего должно быть a[i]:=rondom (50) - 20;

Лукерья · Answer 2

Program cl;

var a:array[1 ... 50] of integer;

i, k, s:integer;

begin

randomize;

for i:=1 to 50 do

begin

a[i]:=random (50) - 20;

write (a[i],' ');

end;

writeln;

for i:=1 to 50 do

begin

if a[i]>0 then k:=k+1;

if a[i]<0 then s:=s+a[i];

end;

writeln ('k=', k);

writeln ('s=', s);

readln;

end.