Сделать анализ задачи!
Задача: Переделать так, чтобы числа от 10 до 6555 сортировались по убыванию и записывались в начало массива.
type mass=array[1..200] of integer;
//перестановка чисел от 10 до 6555 вперед
procedure Forvard(var b:mass;m:integer;var k:integer);
var i,j,x:integer;
begin
k:=0;
for i:=1 to m do
if (b[i]>=10)and(b[i]<=6555)then
begin
k:=k+1;
x:=b[i];
for j:=i downto k+1 do
b[j]:=b[j-1];
b[k]:=x;
end;
end;
//быстрая сортировка первых К чисел
procedure QuickSort(var b:mass; first, last: integer);
var f, l, mid, count: integer;
begin
f:=first;
l:=last;
mid:=b[(f+l) div 2]; {вычисление опорного элемента}
repeat
while b[f]>mid do inc(f);
while b[l] if f<=l then {перестановка элементов}
begin
count:=b[f];
b[f]:=b[l];
b[l]:=count;
inc(f);
dec(l);
end;
until f>l;
if first if f end;
var a:mass;
n,k,i:integer;
begin
randomize;
repeat
write('Введите размер массива от 10 до 200 n=');
readln(n);
until n in [10..200];
writeln('Исходный масссив');
for i:=1 to n do
begin
a[i]:=random(7000);
write(a[i]:5);
end;
writeln;
Forvard(a,n,k);
QuickSort(a,1,k);
writeln('Отсортированный массив');
for i:=1 to n do
write(a[i]:5);
end.
Ну допустим надо посчитать сред. ариф. всех элементов массива.
Пусть будет массив размерностью (Типа таблица) 3х3, запишем его так (он двухмерный)
A[n,m]; - основное положение массива, где n строка, где m столбец.
Давать ему наименование равно такому же смыслу как и Program N; никаких цифр впереди например 1A, правильно записывать массив - A1, XD1D4, _s4; _1; _1d1 и т.д.
Массив должен иметь такой же тип переменных какой задан в условии, т.е. непосредственно real = real. Элементы массива записываются через запятую. И снова же, если массив имеет тип данных целых чисел, то элементы его тоже должны соответствовать им A[i,j] = integer; i,j - type integer;
Сейчас допишу остальные