Ответ:
вычисление A в степени n
Объяснение:
выполняется цикл n раз
в теле цикла число A умножается само на себя
Блок-схема по ГОСТ 19.701-90 (ISO 5807-85) - во вложении.
Const N=10;
var i, m: integer;
a: array [1..N] of integer;
begin
for i := 1 to N do
begin
a[i] := random(50) - 25;
writeln('[', i, '] => ', a[i]);
end;
i := 1;
while (i <= N) do
begin
if (m > a[i]) then m := a[i];
i := i + 2;
end;
writeln(m);
<span>end.
</span>
Зайти в Паинт и делать все по инструкции:з
Var
p:array [1..4,1..5] of integer;
i,j,k:integer;
begin
for i:= 1 to 4 do
begin
for j:=1 to 5 do
begin
p[i,j]:=Random(-100,100);
write(p[i,j]:5);
end;
writeln;
end;
for i:= 1 to 4 do
begin
k:=0;
for j:=1 to 5 do
if p[i,j]>0 then k:=k+1;
writeln ('Количество положительных элементов в строке ',i,' равно: ', k);
end
end.