Написать любую программу на языке Паскаль. Максимальное число строк кода - 30. Не забудьте написать название программы! Помогите!

2

Ответы и объяснения

2013-03-24T11:22:12+04:00

program r;
const n=20;
var mas:array [0..n,0..n] of byte;
i,j,g,m,a,x1,y1,x2,y2,maxx,maxy,minx,miny:integer;
begin

readln (a);
for i:=1 to n do
for j:=1 to m do
mas[i,j]:=0;

for g:=1 to a do
begin
Readln (x1,y1,x2,y2);
if x1>x2 then begin maxX:=x1;minX:=x2;end
else begin maxX:=x2; minX:=x1; end;
if y1>y2 then begin maxY:=y1;minY:=y2;end
else begin maxY:=y2; minY:=y1;end;

m:=0;
for i:=miny+1 to maxy do
for j:=minx+1 to maxx do
if mas[i,j]=0 then begin mas [i,j]:=1;m:=m+1;end;
for i:=1 to n do
begin
for j:=1 to n do
write (mas[i,j]);
writeln;
end;
writeln (m);

end;
end.

 

 

  • kefa
  • главный мозг
2013-03-24T16:23:21+04:00

program 1
var
a: array [1..100] of real;
N, i: integer;
max: real;
maxind: integer;
begin
readln (n);
for i:=1 to N do
read (a[i]);
max := a[1];
maxind := 1;
for i:=2 to N do
if a[i]>max then
begin
max := a[i];
maxind := i;
end;

writeln('Максимальный элемент: ',max);
writeln('Индекс максимального элемента: ',maxind);
end.