Необходимо создать массив из 10 случайных чисел, в котором программа определяет наибольшие элементы и выводит на экран их номера . язык - pascalabc.

Смотри вложение

Базу не дает добавить 1. select перевозки.датаотгрузки, перевозки.номервагона, перевозки.кодгруза, перевозки.стоимость, перевозки.датавозвратавагона from перевозки where ([датаотгрузки]))> =1 and (month([датаотгрузки]))< 7) and ((year([датаотгрузки]))=year()) order by перевозки.датаотгрузки, перевозки.номервагона; 2. select distinctrow наименованиегруза.наименование, avg(перевозки.стоимость) as [avg-стоимость], year([перевозки]! [датаотгрузки]) as [год отгрузки] from наименованиегруза inner join перевозки on наименованиегруза.код = перевозки.кодгруза group by наименованиегруза.наименование, year([перевозки]! [датаотгрузки]), перевозки.кодгруза; 3. не знаю как срок считать 4. select distinctrow sum(перевозки.стоимость) as [общаястоимость перевозок за период] from перевозки having .датаотгрузки) between [: d1] and [: d2]));

Uses crt; var a: array [1..5] of   integer;   i,m,n: integer;     f,g: text; begin clrscr;     write('m,n = '); read (m,n); randomize;     assign(f,'f.txt'); rewrite(f); //в фаил   for i: =1 to 5 do begin a[i]: =random(10);           write(f,a[i]: 2); end; close(f); assign(g,'g.txt'); rewrite(g); //в фаил for i: =1 to 5 do                     if ((a[i] mod m) = 0) and ((a[i] mod n) < > 0) then write(g,a[i]: 2);           close(g);   end.abc pascal