Размещено 5 лет назад по предмету
Информатика
от gavr015666
Дан двумерный массив А. Сформировать одномерный массив, в который
войдут элементы из А, больше 4.
Program primer_laba15;
Var a : array [1..20,1..20] of integer;
b : array [1..100] of integer;
m,n,k,i,j : integer;
Begin
k:=0;
Writeln ('Введите количество строк в массиве'); Readln(n);
Write('Введите количество столбцов в матрице'); Readln(m);
For i:=1 to n do
For j:=1 to m do
Begin
Write('Введите а[', i, ',', j, ']=');
Readln(a[i,j])
End;
For i:=1 to n do
For j:=1 to m do
If a[i,j]>4 Then begin
k:=k+1;
b[k]:=a[i,j];
For k:=0 to i do
End;
Writeln('b[', i, ']=', b[k]);
Readln
End.