Исправьте ошибку в программе
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.
Исправьте ошибку в программе
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.
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 часов
Проверка работы на плагиат
Интересные статьи из справочника
Поможем написать учебную работу
Отвечай на вопросы, зарабатывай баллы и трать их на призы.
Подробнее
Подробнее
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]:=random(50)-20;
write(a[i],',');
end;
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.