если найду и пойму, что вы там наклали, то подскажу

щас будет тексты программ

program zadacha1;
uses crt;
const n=10;
var i:integer;
q:array [1..n] of integer;
begin
clrscr;
randomize;
writeln ('lybie 10 chisel');
for i:=1 to n do begin q[i]:=random (100);
write (q[i],' ');
end;
writeln;
writeln ('iz nih nugnie');
for i:=1 to n do
if (q[i] mod 2=0) and (q[i] mod 4<>0) then
write (q[i],' ');
readln
end.

ии....

Program bukvaa;
uses crt;
const n=10;
m=9;
var i,j:integer;
s:real;
a:array[1..n,1..m] of real;
begin
clrscr;
writeln('vvedite massiv');
for i:=1 to n do
for j:=1 to m do
begin
write('a[',i,',',j,']= ');

readln(a[i,j]);
end;
writeln;
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:6:2);
writeln;
end;
writeln('nagmite "Enter" ');
readln;
for j:=1 to m do
begin
s:=0;
for i:=1 to n do
s:=s+a[i,j];
s:=s/n;
writeln('srednee arifmeticheskoe elementov ',j,' stolbza',s:6:2);
end;
readln;
end.(отдельное спасибо за эту программу Vladimir S)

Попробую разобрать и сделать. У меня есть сутки?

до завтра это крайний срок(((

если вы не будете против я тоже буду пытаться сделать,потом сверю с вашим если у меня что получиться???

конечно не против, даже за. Сейчас сделаю

Готово. Во второй задаче опустил вывод массива сразу после ввода

СПАСИБО!!!!!!!!

Помогите в решении еще двух задач пожалуйста!!!

Даны целые числа а1,…,а50. Получить последовательность b1,…,b50, которая отличается от исходной тем, что все члены удвоены.

Дана действительная матрица 18 х n. Найти значение наибольшего по модулю элемента матрицы, а также индексы данного элемента.

Даны целые числа а1,…,а50. Получить последовательность b1,…,b50, которая отличается от исходной тем, что все члены удвоены.