Помогите с заданием по информатике ! (Pascal ABC) 1)Дано 40 случайных целых чисел,∈...

Question

Помогите с заданием по информатике ! (Pascal ABC)
1)Дано 40 случайных целых чисел,∈ (20;82). Подсчитать количество чётных чисел , кратных 3. Вывести эти числа на экран.
2)Найти наименьшее из 20 случайных целых чисел ,∈ (20;370)
Вывести результат на экран , само число и его номер.
Заранее , огромное спасибо!

Comments

В ваших заданиях промежутки включает крайние значения? С математической точки зрения, круглые скобки указывают на то, что не включают. Однако уважаемые модераторы так не считают.

---

Есть в этом что-то, но ведь это просто догадки. Я рассчитывал увидеть ответ автора.

---

Если напишет, то пусть будет по вашему.

Answer 1

1)

const
  n=40;
var
  a:array [1..n] of integer;
  i,k:integer;
begin
  Randomize;
  k:=0;
  Writeln('Исходный массив');
  for i:=1 to n do begin a[i]:=random(63)+20; Write(a[i],' ') end;
  Writeln; Writeln('Четные элементы, кратные 3');
  for i:=1 to n do
    if a[i] mod 6=0 then begin Inc(k); Write(a[i],' ') end;
  Writeln; Writeln('Отобрано элементов: ',k)
end.

Пример
Исходный массив
43 49 27 45 57 20 54 22 74 79 57 64 30 41 67 58 36 68 79 46 28 74 61 21 80 57 50 24 80 36 27 57 38 38 41 71 50 69 39 48
Четные элементы, кратные 3
54 30 36 24 36 48
Отобрано элементов: 6

2)

const
  n=20;
var
  a:array [1..n] of integer;
  i,imin:integer;
begin
  Randomize;
  Writeln('Исходный массив');
  imin:=1;
  for i:=1 to n do begin
    a[i]:=random(351)+20;
    Write(a[i],' ');
    if a[i]    end;
  Writeln;
  Writeln('Минимальный элемент a[',imin,']=',a[imin])
end.

Пример
Исходный массив
292 54 248 310 181 210 263 284 255 156 177 340 173 39 108 144 270 40 318 155
Минимальный элемент a[14]=39