сгенерировать массив m из 10 частей.Каждый элемент-случайное число от 0 до
Сгенерировать массив m из 10 элементов.Каждый элемент-случайное число от 0 до 20. Сгенерированный массив вывести на экран в виде таблицы из двух строк по пять элементов в каждой
а)отыскать сумму всех частей
б)вывести на экран номера частей,значения которых четны
в)отыскать творение этих частей
г)отыскать сумму a[1]*a[2]*+a[2]*a[3]+a[3]*a[4]+...a[9]*a[10];
Ответ:
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.
-
Вопросы ответы
Статьи
Информатика
Статьи
Химия.
Русский язык.
Геометрия.
Физика.
Русский язык.
Химия.
Математика.
География.
Литература.
Разные вопросы.