Вопрос по информатике:
Сформировать массив из n случайных чисел на промежутке [-50;50].Найти сумму четных чисел.
- 15.04.2018 16:50
- Информатика
- remove_red_eye 15870
- thumb_up 26
Ответы и объяснения 1
Program Project2;
{$APPTYPE CONSOLE}
uses Windows;
var n,i,s:integer; a:array of Integer;
begin
randomize;
s:=0;
SetConsoleOutputCP(1251);
write('Введите длину массива: ');
readln(n);
SetLength(a,n);
for i:=0 to Length(a) do
a[i]:=Random(100)-50;
for i:=0 to Length(a) do
write(a[i]:3);
writeln;
for i:=0 to Length(a) do
if a[i] mod 2 =0 then
s:=s+a[i];
writeln('Сумма: ',s);
Readln;
end.
- 16.04.2018 01:02
- thumb_up 8
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.