Вопрос по информатике:
ПОМОГИТЕ С ПАСКАЛЕМ: СОЗДАТЬ ПРОГРАММУ, КОТОРАЯ СЧИТАЕТ СУММУ И ПРОИЗВЕДЕНИЕ ЭЛЕМЕНТОВ МАССИВА СЛУЧАЙНЫМ ОБРАЗОМ И С КЛАВИАТУРЫ.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 17.10.2017 23:44
- Информатика
- remove_red_eye 9667
- thumb_up 24
Ответы и объяснения 1
Var
a: array[1..100] of integer;
n, i: byte;
sum, p: integer;
begin
writeln('1. Случайным образом');
Randomize;
write('Введите размер массива: ');
readln(n);
sum:=0; p:=1;
for i:=1 to n do
begin
a[i]:=Random(101)-50;
write(a[i]:4);
sum:=sum+a[i];
p:=p*a[i];
end;
writeln;
writeln('Сумма = ', sum:5);
writeln('Произведение = ', p:5);
sum:=0; p:=1;
writeln('-------');
writeln('2. С клавиатуры');
for i:=1 to n do
begin
write('Элемент ', i, ' = ');
readln(a[i]);
sum:=sum+a[i];
p:=p*a[i];
end;
writeln('Сумма = ', sum:5);
writeln('Произведение = ', p:5);
end.
- 19.10.2017 00:05
- thumb_up 4
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.