Вопрос по информатике:
1.Дан массив целых чисел из 25 элементов. Заполнить его случайными числами до 50. Найти сумму всех четных элементов массива и их количество.
2.Дан массив целых чисел из 25 элементов. Заполнить его случайными числами от 0 до 50. Заменить все четные элементы на их квадраты, а нечетные удвоить.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 09.01.2017 08:49
- Информатика
- remove_red_eye 20010
- thumb_up 29
Ответы и объяснения 1
1)
Const N = 25;
Var m:array [1..N] of integer; i,S,k:integer;
begin
randomize;
for i:=1 to N do
m[i]:= random(50);
S:=0; k:=0;
for i:=1 to N do
if m[i] mod 2 =0 then begin
S:=S+m[i]; inc(k); end;
writeln('Summa= ',S,' kol-vo = ',k);
readln;
end.
- 01.01.1970 00:00
- thumb_up 50
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.