• программа паскаль. Помогите пожалуйста!!!
    в каждом столбце матрицы подсчитать количество парных и не парных елементов

Ответы 1

  • const  amax=20;var  a: array[1..amax,1..amax] of integer;  i,j,k,n,m: byte;begin  write('Введите размеры массива(матрицы (<20)):');  readln(n,m);  writeln('Массив(матрица):');  for i:=1 to n do  begin    for j:=1 to m do    begin      a[i,j]:=random(99)+1;      write(a[i,j]:4);    end;    writeln;  end;  writeln('Кол-во четных элементов по колонкам:');  for j:=1 to m do  begin    k:=0;    for i:=1 to n do      if odd(a[i,j])=false then inc(k);    writeln('В ',j,' столбце ',k);  end;  writeln('Конец программы!');end.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years