1 - 3; 2 - 1; 3 - 5; 4-2; 5-4
Объяснение:
1 - 3
Тут сразу видно, что код бесполезный, как и все остальные 4 =D
Ну в общем переменной buf ты присваиваешь первый элемент массива, на место первого ставишь второй и на место второго - buf... Возвращаешь первый короче на место второго.
2 - 1
Тут у тебя есть какая-то строка x, длина которой измеряется встроенной функцией len. И выполняется цикл for, что для каждого символа этой строки при условии, что если i-ый элемент больше какой-то переменной max, то происходит "перезапись" переменной, что нам найти максимальное значения массива.
3 - 5
Тут грубо говоря аналогично максимуму, только находится минимум и выводится индекс методом index
4 - 2
Тут в самом начале уже стоит условие, что если i-ый элемент делится без остатка на 2 (т.е. четный) то идут манипуляции с перестановкой =D
5 - 4
Тут элементарно. Цикл прогоняют по количеству символов массива y, чтоб потом вызывать по индексу его элементы.
program picaso; uses crt;
type matrice=array[1..10,1..10] of integer;
var i,j,n,m,k:integer;
a:matrice;
procedure rea(var a:matrice);
begin
writeln('n: ');readln(n);
writeln('m: ');readln(m);
writeln('ведите ',n*m,' элементов');
for i:=1 to m do
for j:=1 to n do
begin
write('A[',i,',',j,']=');
readln(A[i,j]);
end;
end;
procedure writ;
begin
writeln('Массив A');
for i:=1 to m do
begin
for j:=1 to n do
write(A[i,j],' ');
writeln;
end;
end;
procedure calc(a:matrice );
begin
for j:=1 to n do
begin
k:=0;
for i:=1 to m do
if a[i,j] > 0 then inc(k);
writeln('столбец :',j,' положительные элементы : ',k);
end;
end;
begin clrscr;
rea(a);
writ;
calc(a);
readln;
end.