2. Найти произведение всех четных чисел кратных трем. Выход из программы по вводу числа 0​

Спочатку потрібно викликати процедуру randomize.

Потрібно створити ціле число, що належить інтервалу [1, 4]. Для цього будемо використовувати формулу X:=Random(B-A+1)+A, де A=1,B=4.

Перевіримо створене число.

Якщо воно дорівнює 1, то надрукуємо слово 'піка'.

Якщо воно дорівнює 2, то надрукуємо слово 'треф'.

Якщо воно дорівнює 3, то надрукуємо слово 'бубна'.

Якщо воно дорівнює 4, то надрукуємо слово 'чирва'.

Програма

var x:byte;

begin

randomize;x:=random(4)+1;

if x=1 then writeln('пики');

if x=2 then writeln('трефи');

if x=3 then writeln('бубни');

if x=4 then writeln('черви');

end.

Приклад 2

Одержати у програмі 10 випадкових цілих чисел у діапазоні від 0 до 10 включно та знайти їх суму.

Змінні:

Вхідних даних немає.

Вихідні:

x – число, що має значення від 0 до 10 (ціле число)

s – сума всіх чисел x

Проміжні:

i – параметр циклу (ціле число)

1. Современное решение

// PascalABC.NET 3.2, сборка 1356 от 04.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  Writeln('Среднее положительных ',a.Where(x->x>0).Average);
  Writeln('Минимум ',a.Min)
end.

Пример
n= 15
35 27 -7 -1 20 13 6 50 -9 23 -38 46 30 27 14
Среднее положительных 26.4545454545455
Минимум -38

2. Школьный вариант на древних версиях

program Ex1;
const
  nn=100; { ограничение на длину массива }
var
  i,n,s,k:integer;
  a:array[1..nn] of integer;
begin
  Randomize;
  Write('n='); Read(n);
  k:=0;
  for i:=1 to n do begin
    a[i]:=Random(101)-50;
    Write(a[i],' ');
    if a[i]>0 then begin
      k:=k+1; s:=s+a[i]
      end
    end;
  Writeln;
  Writeln('Среднее положительных ',s/k) 
end.

program Ex2;
const
  nn=100; { ограничение на длину массива }
var
  i,n,min:integer;
  a:array[1..nn] of integer;
begin
  Randomize;
  Write('n='); Read(n);
  min:=100; { больше максимально возможного }
  for i:=1 to n do begin
    a[i]:=Random(101)-50;
    Write(a[i],' ');
    if a[i]<min then min:=a[i]
    end;
  Writeln;
  Writeln('Минимум ',min)
end.

Выводы о том, чему и как учат в школе, делайте самостоятельно...