Исправьте ошибку в программе 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

Информатика 10 - 11 классы

Dalalhala 10.23.18

Решено

Исправьте ошибку в программе 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.

254

ОТВЕТЫ

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

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]gt;0 then k:=k+1;
if a[i]lt;0 then s:=s+a[i];
end;
writeln(k=,k);
writeln(s=,s);
readln;
end.

63

Отв. дан 2018-10-24 09:07:02 Уинфрид

Другие вопросы в разделе - Информатика