пятница, 26 июня 2009 г.

найти для каждой строки число элементов,кратных 5

Для целочисленного двумерного массива найти для каждой строки число элементов,кратных 5,запишите информацию в одномерный массив и найдите наибольший из полученных результатов

const
N = 10;
M = 20;

var
a: array [1..N, 1..M] of integer;
b: array [1..N] of integer;

i: integer;
j: integer;
sum: integer;
max: integer;

begin
{инициализируем массив случайными числами}
for i:=1 to N do begin
for j:=1 to M do begin
a[i, j]:=random(100);
end;
end;

{выведем его на экран}
for i:=1 to N do begin
for j:=1 to M do begin
write(a[i, j]:3);
end;
writeln;
end;
writeln;

sum:=0; {начальная инициализация суммы}
write('кол-во элементов кратных пяти: ');
for i:=1 to N do begin
{находим кол-во элементов кратных 5}
b[i]:=0;
for j:=1 to M do begin
if a[i, j] mod 5 = 0 then begin
b[i]:=b[i]+1;
end;
end;
write(b[i]:3); {вывод на экран}
end;
writeln;

max:=b[1];
for i:=2 to N do begin
if b[i] > max then begin
max:=b[i];
end;
end;

writeln('максимальное из них = ', max);
end.


тут можно скачать оригинал

Комментариев нет:

Отправить комментарий