Помогите с информатикой! (нужно оформить задачу в Паскале

Определить количество минимальных чисел случайной последовательности 450 трехзначных чисел

Question

Информатика

Прасковья

15 июня, 11:19

Помогите с информатикой! (нужно оформить задачу в Паскале

Определить количество минимальных чисел случайной последовательности 450 трехзначных чисел

+4

Ответы (1)

Знаете ответ на вопрос?

Македоний · Answer 1

const n = 450;

var

i, min, s: integer;

arr:array[1 ... n] of integer;

begin

min:=999;

s:=0;

for i:=1 to n do begin

arr[i]:=random (900) + 100;

if arr[i]<=min then begin

min:=arr[i];

end;

end;

for i:=1 to n do

if arr[i]=min then s:=s+1;

writeln (s) ;

end.

Помогите с информатикой! (нужно оформить задачу в ПаскалеОпределить количество минимальных чисел случайной последовательности 450 трехзначных чисел

Помогите с информатикой! (нужно оформить задачу в Паскале

Определить количество минимальных чисел случайной последовательности 450 трехзначных чисел