Помогите написать программу в паскале. За ранее спасибо.

+ 0 -

Madison11

13 нояб. 2016 г., 3:55:26 (7 лет назад)

uses crt;

var

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

  i,j,n:integer;

begin

  write ('Razmer massiva (N<100): ');readln(n);

  randomize;

  for i:=1 to n do begin   

   for j:=1 to n do begin

    a[i,j]:=random(9)+1;

    if j mod 2 = 0 then textcolor (12) else textcolor (9);

    write (a[i,j],' ');

   end;

   writeln;

  end;

  readln;

end.

var

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

  i,j,k:integer;

begin

  randomize;

  for i:=1 to 10 do begin

   for j:=1 to 7 do begin

    a[i,j]:=random(9)+1;

    write (a[i,j],' ');

    if a[i,j] mod 2 <> 0 then k:=k+1;

   end;

   writeln;

  end;

writeln ('Количество нечетных элементов массива =',k);

readln;

end.

+ 0 -

DoctorstyleHUMMERari

13 нояб. 2016 г., 6:12:07 (7 лет назад)

uses crt;
  var a:array[1..100,1..100] of integer;
  i,j,n:integer;
begin
  write('Введите количество строк: '); read(n);
  clrscr;
  for i:=1 to n do
    for j:=1 to 5 do
    begin
      a[i,j]:=random(10);

    end;
  for i:=1 to n do
  begin
    for j:=1 to 5 do
    begin
      if (j mod 2 =0) then
      textcolor(red)
      else textcolor(green);
      write(a[i,j]:4);
    end;
    writeln;
  end;
end.

uses crt;
var
  mas:array[1..10,1..7] of integer;
  i,j,k:integer;
begin
  randomize;
  for i:=1 to 10 do
    for j:=1 to 7 do
    begin
      mas[i,j]:=random(101)-50;
      if (mas[i,j] mod 2=1) then k:=k+1;
    end;
  for i:=1 to 10 do
  begin
    for j:=1 to 7 do
      write(mas[i,j]:4);
    writeln;
  end;
  write('Количество нечетных элементов массива =