Решить эти языком паскаля: 1. составить программу для вычисления длины окружности, если радиус r = 5,7,9, 21 см 2. с клавиатуры вводится n действительных чисел. найти количество положительных и количество отрицательных чисел

216

266

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

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

zhenya2902

Информатика

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

Program ez_1; var s: integer; a: array [1..9] of integer; \ i: byte; begin a[1] : = 5; for i : = 1 to 9 do a[i] : = a[1] + 2 * i; for i : = 1 to 9 do begin s : = 3 * (a[i] * a[i]); writeln(s); end; end. 2) program ez_2; var s, m, b: integer; a: array [1..9] of integer; i: byte; begin readln(s); for i : = 1 to s do begin read(a[i]); if a[i] < 0 then m : = m + 1 else b : = b + 1; end; writeln(b, ' положительных чисел'); writeln(m, ' отрицательных чисел'); end. вроде так. если что-то не так. пиши.