Program project; //объявляем название программы
Var //объявляем переменные
a: integer; //integer - целое число
Begin //начинаем собственно программу
>><span>a:=1</span>; //первое число будет состоять из единиц
>>While a <> 10 do //начинаем цикл, который будет длиться, пока "а" не достигнет 10
>>Begin //начало цикла
>>>>Writeln (a, a, a); //записываем "а" трижды
>>>>a:=a+1; //прибавляем к "а" единицу
>>End; //конец цикла
End. //конец программы
P. S. Вместо ">>" пиши пробелы, просто они здесь не отображаются
В оперативной памяти содержится приложения которые ты не можешь удалить
Var
a: array[1..50] of integer;
max, maxi: integer;
begin
Randomize;
for var i := 1 to 50 do a[i] := Random(1, 1000);
writeln(a);
max := a[1];
maxi := 1;
for var i := 1 to 50 do
if a[i] > max then begin
max := a[i];
maxi := i;
end;
a[maxi] := 0;
writeln('Максимальный был на ', maxi, ' месте и равнялся ', max);
writeln(a);
<span>end.</span>
400, 542, 1112, 1157, 1516