На листе электронной таблицы Excel задайте произвольный массив чисел. Численные значения нужно задать - id1856354520220605 от olga1779 05.06.2022 21:52

Question

Информатика: На листе электронной таблицы Excel задайте произвольный массив чисел. Численные значения нужно задать самостоятельно. Предусмотрите наличие положительных и отрицательных чисел. Вычислите сумму положительных чисел и количество отрицательных чисел в этом массиве.

olga1779 · Accepted Answer

Var     N, s, i: Integer;     s1: real; begin     readln(N); {общий ввод для всех задач}          if N 0 then         writeln( Задача 1. N= , 0)     else writeln( Задача 1. N= , N + 4);          s := 0;     for i := 1 to n do         s := s + i;     writeln( Задача 7. 1+2+3+…+N= , s);          write( Задача 9. Последовательность от N до 1 = );     for i := n downto 1 do         write(i, );     writeln();          s1 := 0;     for i := 1 to n do         s1 := s1 + i / 10;     writeln( Задача 12....

MOGZ ответил