Question

Дан целочисленный массив из 30 элементов. Элементы массива могут принимать произвольные целые значения. Составьте программу, которая находит и выводит номер третьего ... }

Answer 1

Эм... ну, наверно, так :D

Pascal ABC

var
a:array [1..30] of integer;
i:integer;
begin
randomize;
for i:=1 to 30 do
begin
a[i]:=random (100)-50; {заполнение массива случайными числами}
writeln(a[i]) {печать массива}
end;
writeln ('Третий элемент массива', a[3])
end.

Answer 2

Для решения данной задачи, мы можем использовать следующий алгоритм:

1. Создадим целочисленный массив из 30 элементов. 2. С помощью цикла пройдемся по всем элементам массива и заполним его произвольными целыми значениями. 3. Создадим переменную count и инициализируем ее значением 0. Она будет служить счетчиком третьего максимального элемента. 4. Создадим переменные max1, max2 и max3 и инициализируем и