1. Ввод одномерного массива:
Var mas : array[1..20] of real;
I : byte;
Begin
for i:=1 to 20 do
begin
readln(mas[i]);
write(mas[i],’ ‘);
end;
Или
Var
a : array[1..30] of real;
I : byte;
Begin randomize;
for i:=1 to 30 do
begin
a[i]:=random;
write(a[i]:3:2,’ ‘)
end;
2. Ввод двухмерного массива:
Const n=6; m=5;
Var
b : array[1..n,1..m] of integer;
I, k : byte;
Begin randomize;
for i:=1 to n do begin
for k:=1 to m do begin
b[i,k]:=random(40);
write(b[i,k],’ ‘)
end; end;
Задания. Составить блок-схему и написать программу:
1. Найти значение максимального элемента в массиве. Если таких элементов несколько, то определить, сколько их.
2. Найти сумму положительных элементов массива.
3. Найти произведение и количество отрицательных элементов массива.
4. Дан массив. Найти наибольший элемент и поставить его первым.
5. Дан массив целых чисел. Сформировать другой массив таким образом, чтобы вначале шли отрицательные числа, затем положительные, а затем нулевые.
6. Дан массив. Определить сколько в нём элементов больших его среднеарифметического.
7. Найти сумму элементов матрицы, лежащих выше главной диагонали.
8. Дана матрица. Найти сумму каждой строки матрицы.
9. Дана матрица. Найти произведение элементов главной диагонали.
10. Дана матрица. Подсчитать количество нулевых элементов матрицы.
11. Дана матрица. Найти разность между минимальным и максимальным элементами матрицы. Определить сколько элементов матрицы меньше этой разности.
