Пожаловаться
- 23.11.2017 09:39
- Информатика
- remove_red_eye 14135
- thumb_up 37
Ответы и объяснения 1
Var
b: array[1..8] of integer;
s,i: integer;
begin
s:=0;
for i:=1 to 8 do begin
b[i]:=random(11)-5;
write (b[i]:3);
if (b[i]>0) and (b[i] mod 3 =0)
then s:=s+b[i];
end;
writeln;
writeln ('s = ',s)
end.
-------------Результат:-------------
-4 3 5 -5 3 0 -2 5
s = 6
b: array[1..8] of integer;
s,i: integer;
begin
s:=0;
for i:=1 to 8 do begin
b[i]:=random(11)-5;
write (b[i]:3);
if (b[i]>0) and (b[i] mod 3 =0)
then s:=s+b[i];
end;
writeln;
writeln ('s = ',s)
end.
-------------Результат:-------------
-4 3 5 -5 3 0 -2 5
s = 6
Пожаловаться
- 24.11.2017 04:25
- thumb_up 2
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы