Question

Pascal ABC
Создать массив из 10 случайных чисел из интервала (-125;60].

Написать программу нахождения:

1) Наименьшего элемента массива и его номера;

2) Наименьшего элемента массива, кратного 6, и его номера.

3) Наибольшего чётного элемента массива.

Answer 1

Программа:

Pascal:

var arr: array[1..10] of integer;

 i, min, minINDEX, minSIX, minSIXindex, max: integer;

begin

 min := MAXINT;  minSIX := MAXINT;  max := -MAXINT;

 

 for i := 1 to 10 do begin

   arr[i] := random(-124, 60);

   

   if arr[i] < min then begin

     min := arr[i];

     minINDEX := i;

   end;

   

   if (arr[i] mod 6 = 0) and (arr[i] < minSIX) then begin

     minSIX := arr[i];

     minSIXindex := i;

   end;

   

   if (arr[i] mod 2 = 0) and (arr[i] > max) then max := arr[i]

 end;

 

 writeln(arr);

 writeln('Наименьший элемент массива: ', min, ', индекс: ', minINDEX);

 writeln('Наименьший элемент массива, кратный 6: ', minSIX, ', индекс: ', minSIXindex);

 writeln('Наибольший чётный элемент массива: ', max);

end.