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

Вывести массив на экран так, чтобы четные (2,4) колонки и нечетные (1,3,5) колонки были разного цвета. Задание 3. Найти количество нечетных элементов двумерного массива MASSIV [1..10,1..7]. Массив заполните случайными числами. Результат вывести на экран в виде: »Количество нечетных элементов массива = …».

2

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

2013-06-23T13:18:28+04:00

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.

  • Sky09
  • профессор
2013-06-23T13:27:00+04:00

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('Количество нечетных элементов массива = ',k);
end.