Program plov ;
var day : integer ;
var km , sum : real ;
begin
day := 1 ;
km := 3 ;
sum := km ;
while ( sum <= 30 ) do begin
day := day + 1 ;
km := km * 1.1 ;
sum := sum + km ;
end ;
writeln ( 'day=' , day ) ;
<span>end.</span>
Const n=
var a:array [1..n] of integer; (целый)
i,k, i_max: byte; max, sum:integer;
begin
randomize; или for i:=1 to n do
for i:=1 to n do readln(a[i]);
a[i]:=random (100);
k:=0
for i:=1 to n do
if a[i]<0 then k:=k+1];
max:=0; i_max:=0;
for i:=1 to n do
if a[i]>max then begin max:=a[i]; i_max:=i; end;
sum:=0;
for i:=i_max to n do
sum:=sum+a[i];
writeln('Количество отрицательных элементов ',k);
writeln('Сумма элементов ', sum);
readln;
end.
Program mas;
const N=(количество чисел в массиве);
var a:array[1..N] of integer;
i,max:integer;
begin
for i:1 to N do readln(A[i]);
max:=0;
for i:=1 to N do
if (A[i]>max) or (max=0) then max:=A[i];
writeln(max);
end.
Начало
Ввод g
d=g
c=d
b=c
a=b
Вывод а
Конец
Или
Ввод g
i=g
a=i
Вывод а
Да вариантов в принципе много