Задание:
Написать программу. Программа должна осуществлять ввод и печать исходного одномерного массива; выполнять в соответствии с условиями действия и печататьрезультаты. Вычислить сумму ненулевых чисел, стоящих на четных местах, и подсчитать количество чисел, принадлежащих промежутку [M, K].
Решение:
var a: array[1… 10,1… 10]of integer; i,j,m,k,s: integer; beginfor i: =1 to 10 do for j: =1 to 10 do readln (a[i,j]); for i: =1 to 10 do begin for j: =1 to 10 do write (a[i,j],'); if j=10 then writeln; end; for i: =1 to 10 dofor j: =1 to 10 doif (a[i,j]<>0) and (i mod 2=0) then s: =s+a[i,j]; writeln (s); readln (m,k); s: =0; for i: =1 to 10 dofor j: =1 to 10 doif (a[i,j]>=m) and (a[i,j] <= k) then s: =s+1; writeln (s); end.
Знаете другой ответ?