очень надо С клавиатуры вводим гипотенузу и катет. Найти второй катет"
2."Вычислить стоимость покупки со скидкой: общая цена покупки А руб., скидка С %"

208

437

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

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

kirill46712

Информатика

4,7(38 оценок)

PascalABC.Net

Varian 1:

begin var n := ReadInteger('Введите размер массива'); var a := ArrRandom(n, 6, 21); Print(a, 'Srednee: ', a.Average); end.

Varian 2:

var f: array[1..100] of integer; i, sum, N: integer; srednee: real; begin Writeln('Введите размер массива: '); Read(N); sum := 0; randomize; for i := 1 to N do begin f[i] := random(6, 21); write(f[i], ' '); sum := sum + f[i]; end; srednee := sum / n; writeln('Srednee: ', srednee:3:3); end.