написать программу которая напечатает 2-х мерный массив 4*4 из целых сл.чисел от -12 до +12.Элементы в нечётных строках перемножить и сообщить это произведение в паскале авс

1
Хорошая задача, сейчас посмотрим

Ответы и объяснения

2013-12-24T19:56:46+04:00
Program asd;
USES crt;
Const n=4;
var  A:array [1..n, 1..n] of integer;
i,j,s:integer;
BEGIN
clrscr;
Writeln('Massiv 4x4: ');
for i:=1 to n do 
begin 
for j:=1 to n do 
  begin 
 A[i,j]:=random(12)-6;   
Write(' ',A[i,j]:2);
    end; 
     Writeln; 
   end;
    Writeln('Otvet: ');
    For i:=1 to n do 
   begin     
 for j:=1 to n do   
   begin     
    S:=A[i,j];   
    if A[i,j]<0 then 
      S:=A[i,j]*S;     
   Write(' ',S:2)       
 end;     
  Writeln;     
  end;
END.