Дан двухмерный массив целых чисел. В каждой его строке найти количество четных элементов.

@Vasek96 · Регистрация: 20.02.2012

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

@SuPeR XaKer · 22.02.2012, 21:30

Pascal

uses
  CRT;
 
var
  i, j, n, m, KolChet: byte;
  mas: array[1..50, 1..50] of integer;
 
begin
  repeat
    write('Введите кол-во строк: ');
    readln(n);
  until n in [1..50];
  repeat
    write('Введите кол-во столбцов: ');
    readln(m);
  until m in [1..50];
  randomize;
  for i := 1 to n do
  begin
    KolChet := 0;
    for j := 1 to m do
    begin
      mas[i, j] := random(30) - 9;
      write(mas[i, j]:3);
      if not odd(mas[i, j]) then inc(KolChet);
    end;
    writeln(' => ', KolChet);
  end;
  readln;
end.

@Vasek96 0 / 0 / 0 Регистрация: 20.02.2012 Сообщений: 37
		1
	Дан двухмерный массив целых чисел. В каждой его строке найти количество четных элементов. 22.02.2012, 21:02. Показов 3662. Ответов 1 Метки нет (Все метки) Дан двухмерный массив целых чисел. В каждой его строке найти количество четных элементов. 0

	22.02.2012, 21:30

Опции темы

Дан двухмерный массив целых чисел. В каждой его строке найти количество четных элементов.

Решение