массивы записей

[Z1daN]

1.Дана матрица A(N,M). Поменять местами её наибольший и наименьший элементы.
2.В заданной матрице A(N,M) найти кол-во нечетных элементов под главной диагональю.
надеюсь кто-нибудь поможет с задачами

[ROMA2PVT]

2.В заданной матрице A(N,M) найти кол-во нечетных элементов под главной диагональю.
надеюсь кто-нибудь поможет с задачами

Надежда умирает последней.
вот вторая.

uses
  crt;
var
  a:array[1..100,1..100] of integer;
  i,j,k,n,sum:integer;
begin
  clrscr;
  write('Введите количество элементов: ');
  readln(n);
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
       a[i,j]:=random(8)+2;
       Write(a[i,j]:3);
    end;
    writeln;
  end;
  k:=0;
  for i:=1 to n do
  begin
    for j:=1 to i-1 do
      if a[i,j] mod 2<>0 then
      begin
        inc(k);
        sum:=sum+a[i,j];
      end;
  end;
  writeln('Количество: ',k);
  writeln('Сумма: ',sum,' ');
end.

[Z1daN]

пасиб =)
а первую можн?

[ROMA2PVT]

Program massiv;
uses
  crt;
var
  a:array [1..100,1..100] of integer;
  n,m,i,j,min,max,temp,mini,minj,maxi,maxj:integer;
begin
clrscr;
write('Введите количество строк: ');
readln(n);
write('Введите количество столбцов: ');
readln(m);
writeln('Исходный массив: ');
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(10)-5;
write(a[i,j]:2,' ')
end;
writeln;
end;
min:=a[1,1];
maxi:=1;
maxj:=1;
mini:=1;
minj:=1;
max:=min;
for i:=1 to n do
for j:=1 to m do
begin
if a[i,j]<min then
begin
min:=a[i,j];
mini:=i;
minj:=j
end;
if a[i,j]>max then
begin
max:=a[i,j];
maxi:=i;
maxj:=j
end
end;
temp:=a[mini,minj];
a[mini,minj]:=a[maxi,maxj];
a[maxi,maxj]:=temp;
writeln('Результирующий массив: ');
for i:=1 to n do
begin
for j:=1 to m do
begin
write(a[i,j]:2,' ')
end;
writeln;
end;
end.

Вот и первая.Эх Зидан,Зидан расстраиваешь ты меня.А ведь я твоим фэном был.

[Z1daN]

да мне не до информатики
тренировки блин

[ROMA2PVT]

Гы гы гы.Ну есл тренировки то ладно.Отзыв оставить незабудь.

[for_tuna]

а мне?помогите пожалуйста

[1992]

В массив введены результаты кол-во осадков:
Вывести номер месяца
Название месяца
Среднее кол-во осадков

[Z1daN]

Сообщение от ROMA2PVT

Гы гы гы.Ну есл тренировки то ладно.Отзыв оставить незабудь.

"Вы должны добавить отзыв кому-то ещё, прежде чем сможете снова добавить его ROMA2PVT." пишет
и причем на любом пользователе

[ROMA2PVT]

"Вы должны добавить отзыв кому-то ещё, прежде чем сможете снова добавить его ROMA2PVT." пишет
и причем на любом пользователе

Да лан забей тогда.