нужно ответить на вопросы по информатике. 1 Как создать таблицу размером 3 строки на 2 столбца?
2 Как объединить или разбить ячейки?

241

451

Посмотреть ответы 1

Ответы на вопрос:

ЧеловекАнанас

Информатика

4,4(34 оценок)

Var n,i,j,c: integer; a: array[1..201] of integer; begin writeln('введите колөво элементов массива'); readln(n); for i: =1 to n do a[i]: =-100+random(201); writeln('исходный массив'); for i: =1 to n do write(a[i]: 5); writeln; for i: =1 to n-1 do for j: =i+1 to n do if a[i]< a[j] then begin c: =a[j]; a[j]: =a[i]; a[i]: =c; end; writeln('отсортированный массив'); for i: =1 to n do write(a[i]: 5); writeln; end.