Регистрация
resetmac
18.07.2021 21:45
Информатика
Есть ответ 👍

Найти среднее значение элементов массива. начало знаю: program s; var m: array [1..100] of integer; s, i: integer; sr: real; begin randomize for i: = 1 to 100 do m[i]: = random(100); s: =0 что дальше писать?

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

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

Lichnosti
Lichnosti
4,4(52 оценок)
Randomize; // в данной строке у вас нету " ; " for i: = 1 to 100 do begin  m[i]: =random(100);   sr: =sr+m[i];   end;   writeln('среднее арифметическое ',sr/100);   end.
Ната911
Ната911
4,8(86 оценок)
(алгоритм смотрите ниже)программа: program popcorn; var y,a,b : real; begin write ('ввести два разных числа '); read(a,b); if (a> b) then begin y: =a*a-b*b*b; write('разница квадрата большего и куба меньшего числа =',y); end else begin y: =b*b-а*а*а; write('разница квадрата большего и куба меньшего числа =',y); end; end. алгоритм: 1)ввести два разных числа 2)найти большее число 3)написать формулу разности квадрата большего и куба меньшего числа.

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