Все надо сделать на paskal ABC
Задание: Составить блок-схему алгоритма и текста программы для решения следу-ющих задач.
Дан одномерный массив М, состоящий из 10 целых чисел:
(10, 12, 0, 15, -5, 4, -15, 3, 0, 11).
1. Найти значение минимального элемента с четным индексом
2. Найти количество положительных элементов массива с нечетными индексами
3. Найти сумму и количество отрицательных и положительных элементов
4. Найти сумму элементов, предшествующих элементам, равным нулю
5. Найти отношение сумм первой и второй половин массива
Дан двухмерный массив М, состоящий из целых чисел:
((-1, 5, 8, 0, 11), (1, 7, -15, 4, 0), (3, -4, 10, 0,16))
6. Найти среднее значение элементов, принадлежащих диапазону [-1 .. 10]
7. Найти сумму и количество положительных четных элементов
8. Найти значение максимального элемента массива
9. Найти сумму элементов второй строки с нечетными индексами столбца
10. Найти количество отрицательных элементов в 1 и 2-й строках
7. Найти сумму и количество элементов столбцов с четными индексами
8. Найти среднее значение элементов строк с нечетными индексами
9. Найти отношение сумм элементов 1 и 5-го столбцов
10. Определить, что больше — сумма элементов первой строки или сумма элементов третьей строки. Соответствующее сообщение вывести на экран
uses crt;
var a:array [1..15] of integer;
i,k:integer;
begin
randomize;
k:=0;
for i:=1 to 15 do
begin
a[i]:=random(10)-3;
if (a[i]<0) then inc(k);
write (a[i],' ');
end;
writeln;
writeln (k/15*100,'%');
end.
2)
uses crt;
var a:array [1..20] of integer;
i:integer;
begin
randomize;
for i:=1 to 20 do
begin
a[i]:=random(30);
write (a[i],' ');
end;
writeln;
for i:=1 to 20 do
if (a[i] mod 10 = 3) then write (a[i],' ');
end.
3)
uses crt;
var a:array [1..20] of integer;
i:integer;
k:longint;
begin
randomize;
k:=1;
for i:=1 to 20 do
begin
a[i]:=random(30);
write (a[i],' ');
if (a[i]>9) and (a[i]<100) then k:=k*a[i];
end;
writeln;
writeln (k);
end.
4)
uses crt;
var a:array [1..30] of integer;
i:integer;
flag:boolean;
begin
randomize;
for i:=1 to 30 do
begin
a[i]:=random(30);
write (a[i],' ');
end;
writeln;
flag:=true;
for i:=1 to 29 do
if (a[i]>a[i+1]) then
begin
flag:=false;
break;
end;
writeln (flag);
end.