Ответьте в кумире или Паскале

1. Найти среднее арифметическое значений всех элементов массива, состоящего их случайных положительных чисел.

2. В массиве из 15-ти целых случайных чисел из диапазона [-30; 70] найти минимальный положительный элемент.

3. В массиве из 10-ти двузначных случайных чисел найти сумму нечетных.

Question

Информатика

Довмонт

3 мая, 12:49

Ответьте в кумире или Паскале

1. Найти среднее арифметическое значений всех элементов массива, состоящего их случайных положительных чисел.

2. В массиве из 15-ти целых случайных чисел из диапазона [-30; 70] найти минимальный положительный элемент.

3. В массиве из 10-ти двузначных случайных чисел найти сумму нечетных.

+2

Ответы (1)

Знаете ответ?

Ахирьяр · Answer 1

Pascal

2) program crazyfrog;

uses crt;

var a: array [1 ... 15] of integer; i, min: integer;

begin

for i:=1 to 15 do begin a[i]:=-30+random (40) ; writeln ('случайные числа: ', a[i]) ; end;

a[1]:=min;

for i:=2 to 15 do begin if (a[i]>0) then begin if (a[i]
writeln ('min = ', min) ;

end.

3) program warcraft;

uses crt;

var a: array [1 ... 10] of integer; i: integer;

begin

s:=0;

writeln ('случайные числа') ;

for i:=1 to 10 do begin a[i]:=9+random (90) ; write (' ', a[i]) ; end;

for i:=1 to 10 do begin if (a[i] mod 2 0) then s:=s+a[i]; end;

writeln ('сумма нечет чисел = ', s) ;

end.