Дан целочисленный массив из 30 элементов. элементы массива могут принимать произвольные целые значения. составьте программу, которая находит и выводит номер третьего }
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.
Эм... ну, наверно, так :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.