Вычислить количество четных элементов в указанном столбце матрицы - Pascal

Формулировка задачи:

Составить программу, которая заполняет массив 6*6 случайным числами от -5до 10, вычисляет количество четных элементов в указанном столбце матрицы, выводит массив и результат вычислений.

Код к задаче: «Вычислить количество четных элементов в указанном столбце матрицы - Pascal»

textual
const
n  = 6;
var a:array[1..n,1..n] of integer;
i, sum, j, b: integer;
begin
writeln(Исходный массив':');
for i:=1 to n do
    begin
    for j:=1 to n do
        begin
        a[i,j]:=-5 + random(16);
        write(a[i,j]:3);
        end;
    writeln;
    end;
writeln('Введиет нормер столбца');
readln(b);
sum:=0;
for i:=1 to n do
    if  not odd(a[i,b]) then
        sum:=sum + a[i,b];
writeln('Сумма четных элементов столбца ', b,' =  ', sum);
end.

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

13   голосов, оценка 3.923 из 5


СОХРАНИТЬ ССЫЛКУ