Задать вопрос
24 октября, 17:13

Pascal ABC.

Двухмерный массив.

1) вычислить количество чётных элементов

2) сумму элементов столбца по его введённому номеру

+3
Ответы (1)
  1. 24 октября, 20:25
    0
    Program sdf; var a:array[1 ... 10000,1 ... 10000] of integer; i, j, k, h, m, n:integer; s:real; beginwriteln ('vvedite kolichestvo strok') ; readln (n) ; writeln ('vvedite kolichestvo stolbtsov') ; readln (m) ; writeln ('vvedite elementy matricy') ; for i:=1 to n dofor j:=1 to m doreadln (a[i, j]) ; k:=0; for i:=1 to n dofor j:=1 to m do if a[i, j] mod 2 = 0then k:=k+1; Writeln ('vvedite nomer stolbtsa') ; readln (h) ; for j:=1 to m dos:=s+a[j, h]; writeln ('kolichestvo chetnyh', k) ; writeln ('symma elementov stolbtsa', s) ; end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Pascal ABC. Двухмерный массив. 1) вычислить количество чётных элементов 2) сумму элементов столбца по его введённому номеру ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы