Вариант №6
1) дана таблица [ 3,5]. определите сумму
элементов, стоящих в четных строках.
2) дана таблица [ 2,4]. каждый элемент таблицы
увеличить в 3 раза, организовав полученные
данные в новую таблицу.

1) Системный блок
2) один из самых важных, особенно для тех, кто всерьёз решил освоить профессию программиста. Мы изучаем понятие подпрограмм и функций в программировании. В Scratch нет этих понятий, но есть возможность создавать Другие блоки. Это и есть прямой аналог подпрограмм. Подумай, что по-твоему, значит термин подпрограмма. Внимательно слушай объяснения учителя. И ты убедишься, что это совсем не сложно, а даже наоборот — удобно. С других блоков (подпрограмм) мы научимся делать код короче и понятнее, то есть оптимальнее. Вперёд! Успехов!

Program q1;
uses crt;
const n=10;
var i,j:integer;
mass:array [1..n] of integer;
countNum:integer; // переменная для хранения количества нечетных чисел
proizv:integer; // переменная для хранения произведения нечетных чисел
BEGIN
proizv:=1; // так как, изначально равно 0, а при умножении на 0 будет всегда 0
{создание последовательности n целых чисел}
Writeln('Случайные целые числа: ');
for i:=1 to n do
begin
mass[ i ]:=random(9)+1; //присваеваем переменной случайное значение от 1 до 10
write(inttostr(mass[ i ])+', ');
end;
{Вычисление произведения и количества нечетных чисел}
for i:=1 to n do
if mass[ i ] mod 2 <> 0 then //проверяем не четное-ли число, если да, то.. .
begin
inc(countNum); //увеличиваем на один кол-во нечетных чисел
proizv:=proizv*mass[ i ]; // высчитываем произведение
end;
{Вывод результатов}
writeln;
writeln('Всего нечетных чисел: '+inttostr(countNum));
writeln('Их произведение: '+inttostr(proizv));
END.


program q2;
uses crt;
const n=10;
var i,j:integer;
mass:array [1..n] of real;
Summ:real; // переменная для хранения суммы чисел
MNum:real; // переменная для хранения среднего арифметического
BEGIN
{создание последовательности n отрицательных вещественных чисел}
Writeln('Случайные отрицательные вещественные числа: ');
for i:=1 to n do
begin
mass[ i ]:=((random(9)+1)+(random(9)+1)/10)*(-1); //присваеваем переменной случайное вещественное от 1 до 10
write(mass[ i ],'; '); //выводим
end;
{Вычисление среднего арифметического}
for i:=1 to n do
Summ:=Summ+mass[ i ]; // высчитываем произведение
MNum:=Summ/n;

{Вывод результатов}
writeln;
writeln('Среднее арифметическое: ',MNum);
END.