Const n=5;
var
a:array[1..n,1..n] of integer;
b:array[1..n] of integer;
i,j,max,min,s:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(21);
write(a[i,j]:4);
end;
writeln;
end;
max:=a[1,n];
for i:=2 to n do
if a[i,n-i+1]>max then max:=a[i,n-i+1];
writeln('1. max = ',max);
for i:=1 to n do
begin
min:=a[i,1];
for j:=2 to n do
if a[i,j]<min then min:=a[i,j];
b[i]:=min;
end;
s:=0;
writeln('2. Массив B');
for i:=1 to n do
begin
write(b[i]:4);
s:=s+b[i];
end;
writeln;
writeln('3. среднее = ',s/n);
for i:=1 to n do
if b[i]>s/n then write(b[i]:4);
writeln;
end.
Пример:
Исходный массив:
10 19 15 17 10
12 12 10 1 5
17 8 8 14 15
12 11 8 0 13
2 2 4 10 6
1. max = 11
2. Массив B
10 1 8 0 2
3. среднее = 4.2
10 8
самая простейшая модель это глобус, он доказывает что земля круглая, на ней есть моря, океаны, материки. Для проверки гипотез и получения новых знаний чаще всего используются компьютерные модели объектов и явлений, например 3d карта земли помогает спрогнозировать погодные явления
Uses crt;
const N=3;M=3;
L=9;
var a:array [1..N,1..M] of real;
b:array [1..L] of real;
i,j,x,k:integer;
begin
x:=1;
for i:=1 to N do
for j:=1 to M do
begin
read(a[i,j]);
if a[i,j]>0 then
begin
b[x]:=a[i,j];
x:=x+1;
end;
end;
clrscr;
for i:=1 to N do
begin
for j:=1 to M do
write(a[i,j]:3:0);
writeln;
end;
writeln;
for k:=1 to x-1 do
write(b[k],' ');
<span>end.</span>
//писал на скорую руку, должно все правильно работать
var
a,plus,minus,d:integer;
c:array[1..50] of integer;
begin
plus:=0;
minus:=0;
for a:=1 to 50 do
c[a]:=random(20)-10;//заполняем массив рандомо
for a:=1 to 50 do//проверям условие
if ((c[a]>0) and (c[a]<>0)) then
plus:=plus + 1
else if ((c[a]<0) and (c[a]<>0)) then
minus:= minus + 1;
Writeln(plus,' ');//кол-во полож
Writeln(minus,' ');//кол-во отриц
if (plus>minus)then
Writeln('Положительных')
<span>else Writeln('Отрицательных');
</span>end.
