Вопрос по информатике:
Сделать блок-схему программы
Program GG;
Var i, N:integer;
S:real;
X:array [1..200] of real;
Begin
write('Введите N = ');
readln(N);
writeln('Исходный массив X:');
For i:=1 to N Do
begin
X[i]:=random(9)-3;
write(X[i],' ');
If X[i]<0 then S:=S+X[i];
end;
writeln('Сумма отрицательных элементов = ',S);
writeln('Модифицированный массив X:');
For i:=1 to N Do
begin
If i mod 2<>0 then X[i]:=round(X[i]*100/S)/100;
write(X[i],' ');
end;
End.
- 11.10.2017 13:53
- Информатика
- remove_red_eye 16883
- thumb_up 44
Ответы и объяснения 1
I
I
write('Введите N = ');
readln(N); (Прямоугольник)
writeln('Исходный массив X:');
I
For i:=1 to N Do
then S:=S+X[i];
end;
I
If X[i]<0 (Ромб, от него две стрелки "Да" и "Нет")
I ДА I НЕТ
then S:=S+X[i];
end;
(Прямоугольник)
- 12.10.2017 11:11
- thumb_up 33
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.