Регистрация
дарья3ви
25.11.2021 03:10
Информатика
Есть ответ 👍

Составить программу для нахождения суммы по следующей формуле паскаль 9 класс​​

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

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

ниро4
ниро4
4,7(35 оценок)
Не самое лучшее решение, но вот: const       n = 2;       k = 2; var   i,j,s: integer;   a: array[1..n,1..k] of integer; begin       s: =0;   for i: =1 to n do     for j: =1 to k do     begin       writeln('введите a[',i,',',j,']: ');       readln(a[i,j]);       if a[i,j] mod 2=0 then s: =s+a[i,j];     end;   if s< 0 then     for i: =1 to n do       for j: =1 to k do       if j mod 2=0 then         a[i,j]: =1;   if s> =0 then     for i: =1 to n do       for j: =1 to k do       if j mod 2=0 then         a[i,j]: =-1;   for i: =1 to n do     begin       for j: =1 to k do     write('a[': 4,i,',',j,']=',a[i,j]);     writeln;     end; end.

Популярно: Информатика