Таблица 1 какую вы читаете? № фамилия, имя респондента учебная или научная научно-популярная художественная - id690255920210901 от savikdaniil3 01.09.2021 14:52

Question

Информатика: Таблица 1 какую вы читаете? № фамилия, имя респондента учебная или научная научно-популярная художественная газеты и журналы 1-10 таблица 2 сколько времени в день вы затрачиваете на чтение? № фамилия, имя респондента до 30 мин от 30 мин до 1 ч более 1 ч 1-10

savikdaniil3 · Accepted Answer

//1) Type ty=array[1..25] of integer; Var n,i:integer; ar:ty; procedure sortbutmeh(var ar:ty;n:integer); Var i,j,c:integer; begin for i:=1 to n-1 do for j:=i+1 to n do if ar[i] ar[j] then begin c:=ar[i]; ar[i]:=ar[j]; ar[j]:=c; end; end; begin randomize; readln(n); writeln( First array: ); for i:=1 to n do begin ar[i]:=random(100); write(ar[i]:4); end; sortbutmeh(ar,n); writeln; writeln( Array after sortbutmeh() ); for i:=1 to n do write(ar[i]:4); end. //2) Var n:integer; procedure ned(n:integer);...

MOGZ ответил