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

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

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

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

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

+2
Ответы (1)
  1. 24 августа, 02:53
    0
    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.
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «Ответьте в кумире или Паскале 1. Найти среднее арифметическое значений всех элементов массива, состоящего их случайных положительных чисел. ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы