Создать двумерный массив из 5 строк, 3 столбцов. Вывести на экран числа кратные 8 оканчивающиеся на 4. Pascal ABC
Создать двумерный массив из 5 строк, 3 столбцов. Вывести на экран числа кратные 8 оканчивающиеся на 4. Pascal ABC
Гость
Ответ(ы) на вопрос:
Гостьconst
m=5;
n=3;
var
i,j,k:integer;
a:array[1..m,1..n] of integer;
begin
Randomize;
Writeln('Исходный массив');
k:=0;
for i:=1 to m do begin
for j:=1 to n do begin
a[i,j]:=Random(999)+1;
Write(a[i,j]:4);
if (a[i,j] mod 8=0) and (a[i,j] mod 10=4) then Inc(k);
end;
Writeln
end;
if k>0 then begin
Writeln('Искомые элементы');
for i:=1 to m do
for j:=1 to n do
if (a[i,j] mod 8=0) and (a[i,j] mod 4=10) then Write(a[i,j],' ')
end
else
Writeln('Нет элементов, кратных 8 и оканчивающихся на 4')
end.
Пример работы программы
Исходный массив
424 672 826
546 587 413
507 211 884
252 781 518
750 656 359
Искомые элементы
424
Не нашли ответ?
Похожие вопросы