лабораторная работа / вар20 / лаб6

Балаковский институт техники технологий и управления

Лабораторная работа №6

Вариант 20

Выполнил студент УИТ-22

Балаково 2007 год.

Задание: Найдите все элементы матрицы (n,m) кратные 5 и сохраните их в одномерном массиве.

Текст программы:

program lab6;

var i,k,j,n,m:byte;

a:array[1..10,1..10] of integer;

b:array[1..10] of integer;

begin

writeln('Введите количество строк');

Read(n);

writeln('Введите количество столбцов');

Read(m);

for i:=1 to n do

begin

writeln('Введите значения ',i,' строки');

for j:=1 to m do Read(a[i,j]);

end;

k:=0;

for i:=1 to m do

for j:=1 to n do

if a[i,j] mod 5=0 Then

begin

k:=k+1;

b[k]:=a[i,j];

end;

writeln('Числа кратные 5');

for i:=1 to k do writeln(b[i]);

end.

Рис.1 Блок–схема программы