Спо информатике на написание программы в паскаль: найти сумму ряда 1-2+3-4++56

120

290

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

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

vafla3121

Информатика

4,4(1 оценок)

Var i,s: integer; begins: =0; for i: =1 to 56 do if i mod 2=1 then s: =s+i else s: =s-i; writeln('s = ',s); end.результат: s = -28

gjkbyf6789

Информатика

4,5(13 оценок)

Const n=100; { размер массива } var a: array[1..n] of integer; i,k: integer; begin { заполняем массив случайными значениями } randomize; k: =0; writeln('элементы массива'); for i: =1 to n do begin a[i]: =random(41)-20; write(a[i],' '); if a[i]=0 then inc(k) end; writeln; writeln('нулевых элементов: ',k) end.