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

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

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

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

Question

Информатика

Вилес

24 августа, 01:21

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

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

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

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

+1

Ответы (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.