Ответ:
всё правильно сделал,
Объяснение:
в таблице все указано верно
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var (n, m):= ReadlnInteger2('n, m ->');Writeln('Сгенерированная матрица:');
var a:= MatrRandom(n,m);a.Println;
var sumEven:= 0;
var sumOdd := 0;dec(n);dec(m);
for var i:= 0 to n do
if (i+1).isEven then
sumEven:= sumEven + a.Row(i).sum
else
sumOdd := sumOdd + a.Row(i).sum;
Writeln('Cумма на четных строках -> ', sumEven);
Writeln('Cумма на нечетных строках -> ',sumOdd);
end.
<u>Пример:</u>
n, m -> 4 5
Сгенерированная матрица:
62 61 7 15 76
74 84 43 80 4
37 9 40 86 34
45 70 87 30 51
Cумма на четных строках -> 568
Cумма на нечетных строках -> 427
Var a:array[1..5] of integer;i:integer;m,z:real;
begin
for i:=1 to 5 do
begin
readln(a[i]);
m:=m+a[i];
end;
z:=m/5;
writeln(z);
<span>end.</span>
<span>1. uses</span> crt;
<span>2. var</span> i<span>:</span><span>byte</span>; {раздел обявления переменных}
<span>begin</span><span>writeln</span><span>(</span><span>'--------------'</span><span>)</span>;
<span>writeln</span><span>(</span><span>'|Число|Корень|'</span><span>)</span>;
<span>writeln</span><span>(</span><span>'--------------'</span><span>)</span>;
<span>for</span> i<span>:=</span><span>1</span><span>to</span><span>20</span><span>do</span> <span>//цикл с параметром</span><span>writeln</span><span>(</span><span>'|'</span><span>,</span>i<span>:</span><span>4</span><span>,</span><span>' |'</span><span>,</span><span>sqrt</span><span>(</span>i<span>)</span><span>:</span><span>6</span><span>:</span><span>2</span><span>,</span><span>'|'</span><span>)</span>; <span>//вывод</span><span>writeln</span><span>(</span><span>'--------------'</span><span>)</span>;
<span>end</span>.