Quote (VadimUps)
1) в массиве М[15] найти наибольший элемент ,затем поменять его с первым.
var
a:array[1..15]of integer;
i,max,p,q:integer;
begin
max:=low(max);
for i:=1 to 15 do begin
read(a[i]);
if a[i]>max then begin max:=a[i];p:=i;end;
q:=a[p];
a[1]:=max;
a[p]:=q;
for i:=1 to 15 do
write(a[i],' ');
end.
Quote (VadimUps)
2)в матрице А [5,5] вычислить сумму элементов побочной диагонали ,произведение элементов главной диагонали.
var
a:array[1..5,1..5]of integer;
i,j,sum,pr:integer;
begin
pr:=1;
for i:=1 to 5 do
for j:=1 to 5 do begin
read(a[i,j]);
if i=j then pr:=pr*a[i,j];
if j=5-i+1 then sum:=sum+a[i,j];end;
writeln(pr,' ',sum);
end.
Quote (VadimUps)
3) в массиве А [5,5] в каждой строке найти минимальный элемент.
var
a:array[1..5,1..5]of integer;
i,j,min;
begin
min:=high(min);
for i:=1 to 5 do
for j:=1 to 5 do
read(a[i,j]);
for i:=1 to 5 do begin
for j:=1 to 5 do
if a[i,j]<min then min:=a[i,j];
writeln(min);min:=high(min);end;
end.
"Спасибо" принимается в виде повышения репутации ( Зелёный плюсик:) ).Спасибо
