1.Дан массив целых чисел из 25 элементов. Заполнить его случайными числами

Question

1.Дан массив целых чисел из 25 элементов. Заполнить его случайными числами

1.Дан массив целых чисел из 25 частей. Заполнить его случайными числами до 50. Отыскать сумму всех четных частей массива и их количество.
2.Дан массив целых чисел из 25 частей. Заполнить его случайными числами от 0 до 50. Поменять все четные элементы на их квадраты, а нечетные удвоить.

Задать свой вопрос

Вадик Кизилло
Информатика
2019-09-09 18:35:23
0
1

1 ответ

, оставишь ответ?

Имя:*

E-Mail:

Похожие вопросы

Укажите, какой троп употребляется в выражении quot;кажется, вся москва собралась на

В летнем табореquot;Орленокquot; почивало на 120 малышей больше, чем в лагереquot;Следопытquot;.

краткое содержание рассказа Даля quot;Обмираньеquot;...безотлагательно!!

В баллоне объемом 16,6 м3 находится 20 кг азота при температуре

напишите пожайлуста сочинение с доводом из худож лит-ры на тему: quot;

Помогите:-)Какая основная идея и тема рассказа quot;фото,на которой меня нетquot;

Составить обобщающую таблицу quot;Доли речиquot; (включить части речи, выученные в 6

1.Вычислить 3 целых 11/18 - 1 целая 25/27; 3 целых 11/18

На мебельной фабрике двое рабочих за 3часа общей работы обработали 150

Поначалу истратили 40% всех средств , а позже 30% оставшихся средств

Vjacheslav Pustovajtov · Answer 1 · 2019-09-09 18:36:52+3:00

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.

О проекте

1.Дан массив целых чисел из 25 элементов. Заполнить его случайными числами

Добро пожаловать!