Написать программу. Программа должна осуществлять ввод и печать исходного одномерного...

Question

Написать программу. Программа должна осуществлять ввод и печать исходного одномерного массива; выполнять в соответствии с условиями действия и печатать результаты. Вычислить сумму ненулевых чисел, стоящих на четных местах, и подсчитать количество чисел, принадлежащих промежутку [M, K].

Answer 1

var a:array[1..10,1..10]of integer;
i,j,m,k,s:integer;
begin
for 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 do
for j:=1 to 10 do
if (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 do
for j:=1 to 10 do
if (a[i,j]>=m) and (a[i,j]<=k) then s:=s+1;<br>writeln(s);
end.