сен есептің берілгенін дұрыс түсін бедің? дипазон екі санмен емес төрт санмен берілуі керек! немесе есептің берілуінде дипазон шектеулері көрсетілуі керек
мысалы:
11 12 13 14 15 16 17
21 22 23 24 25 26 27
31 32 33 34 35 36 37
41 42 43 44 45 46 47
массиві үшін (1, 2) (3, 5) десек онда дипазон
12 13 14 15
22 23 24 25
32 33 34 35 болады
ал программасы мынадай:
program massiv;
var a:array [1..4,1..7] of integer;
i,j,x1,y1,x2,y2,k,s:integer;
begin
writeln('Massivti engiz');
for i:=1 to 4 do
for j:=1 to 7 do
read ( a [ i , j ]);
s:=0;x:=0;y:=0;k:=0;
writeln('x1-'); readln(x1);
writeln('y1-'); readln(y1);
writeln('x2-'); readln(x2);
writeln('y2-'); readln(y2);
if (x1<1)or(x1>7)or(x2<1)or(x2>7)or(x1>=x2) then begin write('dipazon kate'); exit; end;
if (y1<1)or(y1>7)or(y2<1)or(y2>7)or(y1>=y2) then begin write('dipazon kate'); exit; end;
for i:=x1 to x2 do
for j:=y1 to y2 do
begin
s:=s+a[i,j];
k:=k+1;
end;
writeln('Arifmetikalyk orta-', s/k);
end.
Жантуған
пікір
