поставить блок-схему. вычислить сумму положительных чисел от - 10 до +10 и произведение отрицательных чисел в том же интервале

212

483

Посмотреть ответы 1

Ответы на вопрос:

Maxiro

Информатика

4,8(19 оценок)

Const n=10; m=5; var i,j,k: integer; a: array[1..n] of integer; b,c: array[1..m] of integer; begin writeln('введите элкменты массива'); for i: =1 to n do readln(a[i]); j: =0; k: =0; for i: =1 to n do if i mod 2=1 then begin j: =j+1; b[j]: =a[i] end else begin k: =k+1; c[k]: =a[i] end; writeln('массив а'); for i: =1 to n do write(a[i],' '); writeln; writeln('массив b'); for i: =1 to j do write(b[i],' '); writeln; writeln('массив c'); for i: =1 to k do write(c[i],' '); writeln end.