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

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

Информатика

Нала

8 июля, 21:15

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

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.

+3

Ответы (2)

Знаете ответ на вопрос?

Патрикий · Answer 1

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.

Анатольич · Answer 2

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