1.
program z1;
const n=5;
var a:array [1..n,1..n] of integer;
i,j,s:integer;
begin
writeln ('Квадратная матрица:');
for i:= 1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=Random(10);
write(a[i,j]:3);
if i=j then s:=s+a[i,j]
end;
writeln;
end;
writeln('Среднее арифметическое элементов расположенных на главной диагонали: ',s/n)
end.
2.
program z2;
const n=5;
var a:array [1..n,1..n] of integer;
i,j,s,sp:integer;
begin
writeln ('Квадратная матрица:');
for i:= 1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=Random(21)-10;
write(a[i,j]:5);
if i=j then s:=s+a[i,j]
end;
writeln;
end;
for i:= 1 to n do
for j:=1 to n do
if (a[i,j]>0) and (a[i,j]>s/n)then sp:=sp+a[i,j];
writeln('Сумма положительных элементов, превышаюших по величине среднее арифметическое всех элементов расположенных на главной диагонали: ',sp)
end.
3.
program z3;
const n=5;
var a:array [1..n,1..n] of integer;
i,j,m,k:integer;
begin
writeln ('Двумерный массив:');
for i:= 1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=Random(21)-10;
write(a[i,j]:5)
end;
writeln;
end;
m:=a[1,1];
for i:= 1 to n do
for j:=1 to n do
if a[i,j]<m then m:=a[i,j];
writeln ('Минимальный элемент ',m);
k:=0;
for i:= 1 to n do
for j:=1 to n do
if a[i,j]=m then
begin
writeln('Индексы [',i,',',j,']');
k:=k+1;
end;
writeln ('Количество минимальных элементов ',k)
end.
1-Индексом элемента называется номер элемента в массиве
2-Массив данных имеет общее имя и один тип
3-Массив-это совокупность однотипных данных, хранящихся в последовательных ячейках памяти
4-В записи D[4]=3.5, D обозначает имя массива
5-можно назвать этот ряд:2.3, 5.7, 10.89.
6-правильно описание массива:D: array[1..5] of real
7-команда Randomize
8-Для заполнения массива путем ввода чисел с клавиатуры мы используем оператор Readln
9-Выводит N значений массива на экран
10-Sum:=sum+a(i)
11-Выбирает минимальный элемент массива
12-условие:If a[i]>0 then k:=k+1
13-значение суммы после выполнения следующего фрагмента программы равн.25
14-знач.суммы 21
15-знач.переменн.9
16-нельзя определить значение переменной
17-знач>перемен.6
18-знач.перемен. 2
19-знач.перемен.12
20-знач.перемен.6
ответ:
много раз написать точку
объяснение:
или много раз написать троеточия