Program task1;
const
n = 10;
var
a :array [1..n] of real;
i, j :integer;
min, k :real;
begin
for i:= 1 to n do
readln(a[i]);
min:= a[1];
for i:= 1 to n do
if a[i] < min then
begin
min:= a[i];
j:= i;
end;
k:= a[n];
a[n]:= a[j];
a[j]:= k;
end.
program task2;
const
n = 10;
var
a :array [1..n] of integer;
i, j, kol :integer;
begin
for i:= 1 to n do
readln(a[i]);
kol:= 0;
for i:= 1 to n do
if a[i] mod 3 = 0 then
inc(kol);
for i:= 1 to n do
if a[i] = kol then
begin
j:= i;
break;
end;
writeln(j);
end.
Отдельные слова перенести указатель мыши на нужную 42 выглядит двойной щелчок левой кнопкой мыши строка текста с 1 по 200 указателя мыши в левой границы строки так чтобы он принял вид наклоненный стрелки 2 выполнить шевчук левой кнопкой мыши абзац 1 по 200 указатели мыши в левый бок границы текста так чтобы он принял вид наклонены стрелки второе выписать ст.30 выполнить тройное щелчок левой кнопкой мыши весь текст весь текст 1 по 200 указатели мыши клевый границы абзаца так чтобы он принял вид наклоненный сделки выполнил удалился значок левой кнопкой мыши произвольный участок текста 1 установить указатели мыши над первым символам выделяемого фрагмента 2 нажать левую кнопку мыши отпускать ее переместить мышь в конце выделяемые фрагменты
Если с нуля то https://code-live.ru/tag/cpp-manual/