Недавнее содержимое от tix0n

Не могу найти ошибку uses crt; var a:array [1..100,1..100] of real; x:array[1..100] of real; i,j,k,n:integer; d,c,h:real; begin write('n='); read(n); for i:=1 to n do begin for j:=1 to n+1 do a[i,j]:=random(10); end; for i:=1 to n do begin for j:=1 to n+1 do begin...

Множества. Помогите доделать программу Дана строка. В алфавитном порядке напечатать(по разу) все малые латинские буквы, входящие в эту строку ровно один раз. помогите доделать Program jghfh; uses crt; type x='a'..'z'; var mn1,mn2:set of x; s: string; c:char; i:integer; begin clrscr; writeln()...

Структура в Pascal Нужно составить программу, которая позволит хранить данные об автомобилях предприятия (марка, цвет, пробег, год выпуска, водитель) и выдаст сведения по запросу.