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