Вывести на экран элементы массива кратные 5 и их индексы

29.10.2013, 11:39. **Показов** 1487. **Ответов** 2

Создать двумерный целочисленный массив 5×3
Вывести на экран элементы массива кратные 5 и их индексы.

@APALoff · 29.10.2013, 11:49

Pascal

Var
  m : array [1..5,1..3] of Integer;
  i,j : Byte;
...
For i:=1 to 5 do
  For j:=1 to 3 do
    If (m[i,j] mod 5)=0 then Writeln(m[i,j],i,j);
...

@Sead · 29.10.2013, 11:55

Pascal

uses crt;
const n=5;m=3;
var a:array[1..25,1..25] of integer;
i,j:integer;
begin
Randomize;
writeln('Matrix');
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(16)-5;
write(a[i,j]:5);
end;
writeln;
end;
writeln;
for i:=1 to n do begin
for j:=1 to m do begin
if (a[i,j] mod 5)=0 then writeln(a[i,j]:5,'  ',i,' ñòðîêà ',j,' ñòîëáåö');
end;
write;
end;
end.

Так пойдёт?

Romster 96
		1
	Вывести на экран элементы массива кратные 5 и их индексы 29.10.2013, 11:39. Показов 1487. Ответов 2 Метки нет (Все метки) Создать двумерный целочисленный массив 5×3 Вывести на экран элементы массива кратные 5 и их индексы.

Опции темы

Вывести на экран элементы массива кратные 5 и их индексы

Решение