Вводится размерность одномерного массива A(N) и его элементы. Составить и вывести на экран массив со значениями элементов в исходном массиве больших 10.
const n_max=100;
m_max=100;
var i,j,m,n:integer;
a:array[1..n_max] of integer;
b:array[1..m_max] of integer;
begin
write ('Razmer massiva A(N) raven ');
read (n);
j := 0;
m := 0;
writeln ('Elementy massiva A(N):');
for i := 1 to n do
readln(a[i]);
if a[i] > 10 then begin
m := m + 1;
j := j + 1;
b[j] := a[i];
end;
for j := 1 to m do
writeln ('Massiv B(M) = ', b[m]);
end.
Сообщение отредактировано: amebka -