Регистрация
ronaldopenzap016aa
15.10.2021 10:58
Информатика
Есть ответ 👍

очень надо информатика черепашка очень надо информатика черепашка ">

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

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

СлавноваМаша
СлавноваМаша
4,8(5 оценок)
Program program1; var i, n: integer; var result1, result2, sum: real; var array1: array [0..1000] of real; begin         randomize;         result1 : = 0;         sum : = 0;         write('введите значение n (не менее 0 и не более 255): ');         readln(n);         for i : = 1 to n do                 begin                   array1[i] : = random(1000) - random(1000);                 end;                 begin                   writeln('массив размером - ', n, ' элементов(а): ');                   for i : = 1 to n do write(array1[i], ' ');                   writeln;                 end;         for i : = 1 to n do                 begin                   if array1[i] > 0 then result1 : = result1 +1;                 end;         for i: =1 to n do sum : = sum + array1[i];         result2 : = sum / n;         writeln('количество положительных элементов массива = ', result1);         writeln('среднее арифметическое = ', result2); end.

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