Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
бесконечно
Объяснение:
если же будет a := a + 1, то 4 раза цикл выполнится
заражоный диск или инет захват не заражоных файлов удаляет или заменяет их установить антивирусник . всегда проверять вайлы антивирусом
program nn;
uses crt;
var a: array [1..20] of real;
t: real;
i,n,min: integer;
begin
{ввод последовательности, это самостоятельно}
min : = 1;
for i : = 1 to 20 do
if a[i] < a[min] then
min : = i;
end;
t : = a[min];
a[min] : = a[20-n];
a[20-n] : = t;
end.
Популярные вопросы