Привет всему 12 "А" классу(Реальному).Я знаю, зачем вы тут, и я вам Вы знаете меня, как Anxel09.
var a,b,sum,i : integer;
begin
readln(a,b);
if (a < 0) or (a > 10) then
while (a < 0) or (a > 10) do begin
writeln('Число ''a'' не подходит: ');
readln(a);
end;
if (b < 0) or ( b > 10) then
while (a < 0) or (a > 10) do begin
writeln('Число ''b'' не подходит: ');
readln(b);
end;
sum := 1;
for i:= 1 to b do
sum:= sum * a;
writeln('Число ''а'' в степени ''b''',' = ', sum );
end.
Вот и все!
Объяснение:
var
a: array[1..10,1..10] of integer;
b: array[1..10,1..10] of integer;
sum: array[1..10,1..10] of integer;
pol,otr,max,min: real;
i,j,indexi,indexj: integer;
begin
min: =0;
max: =0;
randomize;
for j: =1 to 10 do
begin
for i: =1 to 10 do
begin
randomize;
a[i,j]: =random(51);
randomize;
b[i,j]: =random(51);
a[i,j]: =a[i,j]*2;
writeln(a[i,j]);
a[i,j]: =a[i,j]/2;
end;
end;
for j: =1 to 10 do
begin
for i: =1 to 10 do
begin
a[i,j]: =a[i,j]+b[i,j];
writeln(a[i,j]);
a[i,j]: =a[i,j]-b[i,j];
end;
end;
for j: =1 to 10 do
begin
for i: =1 to 10 do
begin
if a[i,j]< min then
begin
min: =a[i,j];
indexi: =i;
indexj: =j;
end;
end;
end;
writeln(min,indexi,indexj);
for j: =1 to 10 do
begin
for i: =1 to 10 do
begin
if (a[i,j]> 0) and (a[i,j]> max) then
max: =a[i,j];
end;
end;
writeln(max);
max: =0;
for j: =1 to 10 do
begin
for i: =1 to 10 do
begin
if (a[i,j]< 0) and (a[i,j]> max) then max: =a[i,j];
end;
end;
writeln(max);
end.
программа выполняет сразу все 7 пунктов. значения сами. на выходе с каждой строки вы получите каждый пункт .
Поделитесь своими знаниями, ответьте на вопрос:
Чем отличается коммуникационная система от информационной?