Question

Срочно!
1)Дан массив из 15 элементов в диапазоне от -36 до 48. Найти количество элементов, которые кратны 3 и не кратны 4.
2)Дан массив из 10 элементов в диапазоне от -126 до 77. Найти сумму наибольшего и наименьшего элементов.
в виде программы для Паскаля!

Answer 1

Программа:

Pascal:

№1)

var

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

 count, i: integer;

begin

 for i := 1 to 15 do begin

   arr[i] := random(-36, 48);

   if (arr[i] mod 3 = 0) and (arr[i] mod 4 <> 0) then inc(count);

 end;

 writeln(arr, #10, count);

end.

№2)

var

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

 min, max, i: integer;

begin

 min := MAXINT;  max := -MAXINT;

 for i := 1 to 10 do begin

   arr[i] := random(-126, 77);

   if arr[i] < min then min := arr[i];

   if arr[i] > max then max := arr[i];

 end;

 writeln(arr, #10, max + min);

end.