Сгенерировать массив m из 10 элементов.каждый элемент-случайное число от 0 до 20. сгенерированный массив вывести на экран в виде таблицы из двух строк по пять элементов в каждой а)найти сумму всех элементов б)вывести на экран номера элементов,значения которых четны в)найти произведение этих элементов г)найти сумму a[1]*a[2]*+a[2]*a[3]+a[3]*a[4]+*a[10];
hyihy
3
23.05.2019 21:29
8
Другие вопросы по теме Информатика
kknastya16
04.09.2019 17:20
Or003
04.09.2019 17:10
Асуна225
16.04.2020 06:55
лесечка14
16.04.2020 06:55
ifanati2008
16.04.2020 06:56
innalemesh1
11.07.2019 21:10
Wely
11.07.2019 21:10
TheEasyCloud
08.05.2020 12:08
kicked102
25.09.2019 16:40
Популярные вопросы
- Дед старше отца на 32 года, отец старше сына тоже на 32 года. если...
3 - Сумма квадратов двух последовательных натуральных несчетныхх чисел...
3 - Придумать пять с условием и решением по уравнениям реакции...
1 - Опишите какой-либо уголок природы.понаблюдайте за ним утром (днём...
3 - Вычисли: а) периметр и площадь прямоугольника со сторонами 2 см...
1 - Сформулируйте и решите , начало которо выглядит так: 1маг 1 маг...
3 - было пасмурно . где тут сказуемое?...
3 - 15 га пошли на посев 2,7 пшеницы сколько зерна надо что бы засеять...
1 - Нужно добавить имена существительного женский,мужской и средний...
1 - Cos^2(3x пи/4)–sin^2 (3x пи/4)+ корень из3и делить на 2=о...
1
var a: array[1..10] of integer;
i:integer;
begin
randomize;
for i:=1 to 10 do
begin
a[i]:=random(21);
If a[i] mod 2=0 then writeln(i);{задание б}
end;
P:=1;
S:=0;
X:=0;
for i:=1 to 9 do
begin
S:=s+a[i];
P:=p*a[i];
X:=x+a[i]*a[i+1];
end;
P:=p*a[10];
S:=s+a[10];
Writeln(s,p,x);{задания а, в, г соответственно}
end.