Var U: array [1..15] of integer;
i, min :integer;
begin
for i := 1 to 15 do
read(U[i]);
min := U[1];
for i := 1 to 15 do
if (U[i] < min) then begin
min := U[i];
end;
for i := 1 to 15 do
if (U[i] = min) then write(i,' ');
end.
Программа выводит s=402
Описание программы :
Объявление целых переменных s,k
Присвоение нач. значения s=500
Цикл по k от 4 до 10
В цикле из текущего значения s вычитается удвоееное значение k и присваивается s
Вывод s
Нельзя более 5000 символов, поэтому просто дам ссылку http://school-25.ru/informatika/uch_8kl_sem/04.html
Program multiplication;
var i : byte;
begin
for i:=1 to 10 do
writeln('5*',i,'=',5*i);
end.