![](/user_photo/2706_HbeT2.jpg)
Результаты выполнения:
Vvedite 5 chisel 1 stroki
1 2 3 4 5
Vvedite 5 chisel 2 stroki
0 0 2 34 5
Vvedite 5 chisel 3 stroki
12 32 43 2 1
Vvedite 5 chisel 4 stroki
23 43 54 2 12
Vvedite 5 chisel 5 stroki
54 65 3 1 1
min summa elementov v 1 stroke
Vvedite 5 chisel 1 stroki
3 44 22 1 3
Vvedite 5 chisel 2 stroki
1 1 1 1 1
Vvedite 5 chisel 3 stroki
32 43 12 43 2
Vvedite 5 chisel 4 stroki
123 231 123 43 0
Vvedite 5 chisel 5 stroki
1232 34 54 2 3
min summa elementov v 2 stroke
Задание №4: Написать программу, которая в матрице чисел А(N,M) находит все элементы, превышающие по абсолютной величине заданное число b. Подсчитать число таких элементов и записать их в массив C
С
Начало
1
хема алгоритма:
s>b
нетi=1, 1, o
C[k]=A[i,j]; k=k+1
Вывод информационного текста
да
Конец цикла
j=1, 1, p
Ввод A[i,j]
Конец цикла
Вывод элементов больших b
Конец цикла
Вывод информационного текста
Конец цикла
Ввод b
k=1
Вывод C[r]
r=1, 1, k-1
i=1, 1, o
j=1, 1, p Конец цикла
Конец
s=abs(A[i,j])
1
Текст программы:
Program Lab4_4;
Const
o=5; p=5;
v=o*p;
Var
A:array[1..o,1..p] of real;
C:array[1..v] of real;
j,i,k,r:integer;
b,s:real;
Begin
For i:=1 to o do
Begin
writeln('Vvedite ',p,' chisel ',i,' stroki');
For j:=1 to p do
read(A[i,j]);
end;
Writeln('Vvedite chislo dla sravnenia');
Read(b);
k:=1;
For i:=1 to o do
Begin
For j:=1 to p do
Begin
s:=abs(A[i,j]);
If s>b then
Begin
C[k]:=A[i,j];
k:=k+1;
end;
end;
end;
Writeln('Chislo elementov bolshix ',b:3:1,' ravno ',k-1);
Writeln('Massiv С');
For r:=1 to k-1 do
Write(C[r]:4:1,' ')
End.