program raf105;
const
n = 4;
var
a: array[1..n,1..n] of integer;
i,j,sum: integer;
begin
for i:=1 to n do
begin
writeln;
for j:=1 to n do
begin
a[i,j]:= random(1,9);
if i = j then
sum:= sum + a[i,j];
write(a[i,j]:4,' ');
end;
end;
writeln;
writeln;
writeln('Вывод:');
for i:=1 to n do
begin
writeln;
for j:=1 to n do
begin
if i <> j then
a[i,j]:= a[i,j] * sum;
write(a[i,j]:4,' ');
end;
end;
end.
PascalABC 3.4.2
const n=10;
var a:array [1..n] of real;
i:byte;
max:real;
nmax:byte;
begin
//начало цикла ввода
For i:=1 to n do
//ввод
Readln(a[i])
//берём за максимальный 1ый элемент
max:=a[1];
//берём количество = 1
nmax:=1; /
/начало цикла проверки
For i:= 2 to n do
if a[i]> max then
begin
max:=a[i];
nmax:=1;
end else
if a[i]= max then
nmax:=nmax+1;
//вывод
Writeln('Максимальный элемент = ', max,', количество таких элементов = ',nmax); end.