//Блок-схема во вложении
//Pascal ABC.NET v3.0 сборка 1111
Var
a,i,n,max,maxi:integer;
begin
readln(n);
for i:=1 to n do
begin;
readln(a);
if abs(a)>max then
begin;
max:=abs(a);
maxi:=i;
end;
end;
write('Максимальный по модулю элемент был введен ',maxi,'-м');
<span>end.
</span>
Program adsad; uses crt; var y:real; x:real; p:string; begin textcolor(Lightgreen); writeln('Введите значение x: '); readln(x); writeln('Введите y под корнем: '); readln(y); y:= sqrt(x); writeln('Ответ ', y); if x<=0 then if y<=0 then y:=0; //Обнулил счетчик y:=x*x; writeln('Ответ ', y);
end.
1000/5=200, остаток=0
200/5=40, остаток=0
40/5=8 остаток=0
8/5=1 остаток=3
1/5<1-больше не делим
Ответ записываем в обратном порядке, начиная с последнего
1000=13000(5)
Var a:array [1..10] of integer;
i,n:integer;
begin
n:=0;
for i:=1 to 10 do
begin
write ('Введите ',i,' число: ');
readln (a[i]);
n:=n+a[i];
end;
WRITELN;
write ('Сумма элементов в массиве = ',n);
end.