Регистрация
Vikula2404
15.12.2022 03:57
Информатика
Есть ответ 👍

1.Найти объем сферического сегмента по формуле:, где r – радиус сегмента, h – высота сегмента. 2.Поезд движется со скоростью V км/час. За какое время t он преодолеет путь в S км.

3.Даны пять чисел. Найти среднее арифметическое этих чисел.
надо!!

151
392
Посмотреть ответы 1

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

asyamilos
asyamilos
4,6(13 оценок)
Var m,j,r,n,sum,sumi,k: integer; c,b: array[1..15]of integer; sr: real; beginfor r: =1 to 15 do beginc[r]: = random(20)-10;   write(c[r]: 4); if c[r] > 0  then begin n : = n +1; sum: = sum + c[r]; end; if r mod 2 = 0  then begin k : = k +1; sumi: = sumi + c[r]; j: =j+1; b[j]: =c[r]; end; end; writeln; writeln('kоличество положительных',n: 4); writeln('cуммa положительных',sum: 4); writeln('cуммa элементов стоящих на четных местах',sumi: 4); writeln('cреднеарифметическое элементов стоящих на четных местах',sumi/k: 4); foreach m in b dowrite(m: 4); end.

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