Program Julia9696; uses crt; const n=10; m=8; var A:array[1..n,1..m] of integer; cur,up,right,down,left,qw,i,j:integer; begin; randomize; writeln(' Alphaeus ');writeln; writeln ('Програма пошуку всіх елементів масиву А[1..n, 1..m], що менші, ніж усі сусідні'); for i:=1 to n do begin for j:=1 to m do begin A[i,j]:=random(101)-50; write(A[i,j]:3, ' '); end; writeln; end; writeln; qw:=0; for i:=1 to n do for j:=1 to m do begin cur:= A[i,j]; up:=0; right:=0;down:=0;left:=0; if i>1 then begin if cur<A[i-1,j] then up:=1; end else up:=1; if i<n then begin if cur<A[i+1,j] then down:=1; end else down:=1; if j>1 then begin if cur<A[i,j-1] then left:=1; end else left:=1; if j<m then begin if cur<A[i,j+1] then right:=1; end else right:=1; if up+right+down+left=4 then begin qw:=qw+1; writeln('Елемент масиву À[',i,',',j,'], що рівний ',A[i,j]:3,', є меншим за своїх сусідів'); end; end; writeln('Всього таких елементів: ',qw); end.
// PascalABC.NET 3.1, сборка 1267 от 10.07.2016 const k=4; //количество классов u=18; // количество учеников в классе var a:array[1..k,1..u] of real; // массив с ростом n:array[1..k] of integer; // массив результатов i,j:integer; // счетчики циклов m:real; // средний рост ученика в классе begin for i:=1 to k do begin Writeln('Введите рост учеников ',i,'-го из классов'); m:=0; for j:=1 to u do begin Read(a[i,j]); m:=m+a[i,j] end; m:=m/u; n[i]:=0; for j:=1 to u do if abs(a[i,j]-m)>5.0 then Inc(n[i]); end; Writeln('Количество учеников с ростом, отличающимся от среднего'); Writeln('по каждому из классов более, чем на 5'); for i:=1 to k do Write(n[i]:5) end.
Пример решения для упрощенного случая, когда в классе на 18, а 5 учеников (чтобы меньше набирать) Введите рост учеников 1-го из классов 168 174 181 172 175 Введите рост учеников 2-го из классов 162 173 170 158 183 Введите рост учеников 3-го из классов 157 185 159 168 167 Введите рост учеников 4-го из классов 170 173 176 168 171 Количество учеников с ростом, отличающимся от среднего по каждому из классов более, чем на 5 2 3 3 0
uses crt;
const
n=10;
m=8;
var
A:array[1..n,1..m] of integer;
cur,up,right,down,left,qw,i,j:integer;
begin;
randomize;
writeln(' Alphaeus ');writeln;
writeln ('Програма пошуку всіх елементів масиву А[1..n, 1..m], що менші, ніж усі сусідні');
for i:=1 to n do
begin
for j:=1 to m do
begin
A[i,j]:=random(101)-50;
write(A[i,j]:3, ' ');
end;
writeln;
end;
writeln;
qw:=0;
for i:=1 to n do
for j:=1 to m do
begin
cur:= A[i,j];
up:=0; right:=0;down:=0;left:=0;
if i>1 then
begin
if cur<A[i-1,j] then up:=1;
end
else up:=1;
if i<n then
begin
if cur<A[i+1,j] then down:=1;
end
else down:=1;
if j>1 then
begin
if cur<A[i,j-1] then left:=1;
end
else left:=1;
if j<m then
begin
if cur<A[i,j+1] then right:=1;
end
else right:=1;
if up+right+down+left=4 then
begin
qw:=qw+1;
writeln('Елемент масиву À[',i,',',j,'], що рівний ',A[i,j]:3,', є меншим за своїх сусідів');
end;
end;
writeln('Всього таких елементів: ',qw);
end.