Сформировать 2х мерный массив

@Co_OJIER · Регистрация: 22.04.2011

Студворк — интернет-сервис помощи студентам

Сформировать 2х мерный массив и вычислить произведение чисел, которые расположены на четных местах (i,j - четные) и нечетных местах (i,j - нечетные)

@marshal · 22.04.2011, 18:34

Pascal

uses crt;
const n=random(15);m=random(15);
var a:array[1..n,1..m]of integer;i,j:integer;p1,p2:real;
begin
clrscr;p1:=1;p2:=1;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(100)-50;
write(a[i,j],' ');
if (i mod 2=0)and(j mod 2=0) then p1:=p1*a[i,j];
if (i mod 2<>0)and(j mod 2<>0) then p2:=p2*a[i,j];
end;
writeln;
end;
writeln('произведение четных мест =',p1:1:1,' нечетных ',p2:1:1);
end.

@Co_OJIER 0 / 0 / 0 Регистрация: 22.04.2011 Сообщений: 4
		1
	Сформировать 2х мерный массив 22.04.2011, 18:26. Показов 1094. Ответов 1 Метки нет (Все метки) Сформировать 2х мерный массив и вычислить произведение чисел, которые расположены на четных местах (i,j - четные) и нечетных местах (i,j - нечетные) 0

Опции темы

Сформировать 2х мерный массив

Решение