1.Сформировать массив D из 20 случайных чисел. Найти наименьшее из них 2. Найти...

+515 голосов
2.2m просмотров

1.Сформировать массив D из 20 случайных чисел. Найти наименьшее из них 2. Найти количество чисел больших их среднего арифметической, если массив B из 30 случайных чисел лежащих в промежутке от 20 до 50


Информатика (41 баллов) | 2.2m просмотров
Дан 1 ответ
+65 голосов

1)

var

 D: array[1..20] of integer;

 i, min: integer;

begin

min := 100; // минимальное значение

for i:=1 to 20 do

begin

  D[i] := random(100);

  if D[i] < min then

    min := D[i];

end;

write(min);

end.

2)

var

 B: array[1..30] of integer;

 i, sum, count: integer;

 srAr: real;

begin

 count := 0; // количество чисел больших среднего арифметического

 sum := 0; // сумма всех чисел массива

 for i := 1 to 30 do

 begin

   B[i]:= random(30) + 20;

   sum := sum + B[i];

 end;

 srAr := sum / 30; // среднее арифметическое

 

 for i := 1 to 30 do

   if B[i] > srAr then

     count := count + 1;

   

 write(count);

end.

(328 баллов)