Вычислить сумму элементов равных 0, стоящих в столбцах с нечётными номерами - Turbo Pascal
Формулировка задачи:
Задача: Дан массив 4х4 из целых чисел. Вычислить сумму элементов равных 0, стоящих в столбцах с нечётными номерами. Написать две программы-решения с подпрограммами и без.
Помогите пожалуйста
Код к задаче: «Вычислить сумму элементов равных 0, стоящих в столбцах с нечётными номерами - Turbo Pascal»
const
n = 4;
var
x: array [1..n, 1..n] of integer;
i, j: byte;
a, s: integer;
begin
Randomize;
Writeln('Матрица:');
for i := 1 to n do
begin
for j := 1 to n do
begin
x[i, j] := Random(11) - 5;
Write(x[i, j]:4);
end;
Writeln
end;
Write('Введите A: ');
Readln(a);
for i := 1 to n do
for j := 1 to n do
if (Odd(j)) and (x[i, j] = a) then
s := s + x[i, j];
Writeln('Сумма = ', s);
Readln
end.
Нужна аналогичная работа?
Оформи быстрый заказ и узнай стоимость
10 голосов, оценка 3.600 из 5
СОХРАНИТЬ ССЫЛКУ