Вопрос по информатике:
Исправьте ошибку в программе
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.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 16.07.2015 03:30
- Информатика
- remove_red_eye 7908
- thumb_up 7
Ответы и объяснения 2
- 17.07.2015 16:09
- thumb_up 50
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.
- 18.07.2015 08:14
- thumb_up 6
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.