Сетевая паутина Оплела весь белый свет. Не пройти детишкам мимо. Что же это? интернет
like 5 0 dislike Он знает всё и даже больше, И к нам на поспешит. Любой вопрос, пусть очень сложный, Мгновенно с лёгкостью решит. Плетёт свою он паутину, Хотя, по сути, не паук. Он видит всё. Вы догадались? А, ну-ка, что это за друг? интернет
like 2 0 dislike Это будто паутина, В ней найдёшь ты всё о всех: О животных, о машинах, Будет дождь сегодня, снег? Всё про мир и о планете Прочитаешь в... интернете
like 4 0 dislike Её называют всемирная сеть, Чего в этой сети только нет! Она всё расскажет и даже покажет. Она называется как?... интернет
like 2 0 dislike Он всех нас объединяет, Обо всём на свете знает, Он кино тебе покажет, Обо всём тебе расскажет. интернет
like 4 0 dislike В нём есть игры и соцсети, Фильмы, почта, курс валют. Есть все новости планеты, В нём танцуют и поют. интернет
like 8 0 dislike Средство связи редким было, А сейчас — у всех оно. Вот уже беспроводное, Раньше — оптоволокно. интернет
Program msdos_2; uses crt; var a:array[1..3] of integer; //массив трёх максимальных элементов r,max,i,j: integer; begin writeln('*** alphaues is thinking... ***'); writeln('*** OK ***'); r:=1; writeln('Введите ненулевое число'); writeln('(или введите 0 для конца последовательности) '); {вводим 3 первых элемента}
for i:=1 to 3 do begin write('Ввод:'); readln (r); a[i]:=r; end; {сортируем массив из 3-х первых элементов} for i:=1 to 2 do begin max:=a[i]; for j:=i+1 to 3 do if a[j]>max then max:=a[j]; a[j]:=a[i]; a[i]:=max; end; {Продолжаем ввод и сравниваем текущее число с массивом из 3-х первых} while r<>0 do begin write('Ввод:'); readln (r); if r>a[1] then begin a[3]:=a[2]; a[2]:=a[1]; a[1]:=r; end else if r>a[2] then begin a[3]:=a[2]; a[2]:=r; end else if r>a[3] then a[3]:=r; end; {выводим 3 максимальных элемента}
writeln(); writeln('Три наибольших элемента массива:'); for i:=1 to 3 do writeln(i,'-й: ',a[i]); end.
Оплела весь белый свет.
Не пройти детишкам мимо.
Что же это?
интернет
like 5 0 dislike
Он знает всё и даже больше,
И к нам на поспешит.
Любой вопрос, пусть очень сложный,
Мгновенно с лёгкостью решит.
Плетёт свою он паутину,
Хотя, по сути, не паук.
Он видит всё. Вы догадались?
А, ну-ка, что это за друг?
интернет
like 2 0 dislike
Это будто паутина,
В ней найдёшь ты всё о всех:
О животных, о машинах,
Будет дождь сегодня, снег?
Всё про мир и о планете
Прочитаешь в...
интернете
like 4 0 dislike
Её называют всемирная сеть,
Чего в этой сети только нет!
Она всё расскажет и даже покажет.
Она называется как?...
интернет
like 2 0 dislike
Он всех нас объединяет,
Обо всём на свете знает,
Он кино тебе покажет,
Обо всём тебе расскажет.
интернет
like 4 0 dislike
В нём есть игры и соцсети,
Фильмы, почта, курс валют.
Есть все новости планеты,
В нём танцуют и поют.
интернет
like 8 0 dislike
Средство связи редким было,
А сейчас — у всех оно.
Вот уже беспроводное,
Раньше — оптоволокно.
интернет
Program msdos_2;
uses crt;
var
a:array[1..3] of integer; //массив трёх максимальных элементов
r,max,i,j: integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
r:=1;
writeln('Введите ненулевое число');
writeln('(или введите 0 для конца последовательности) ');
{вводим 3 первых элемента}
for i:=1 to 3 do
begin
write('Ввод:');
readln (r);
a[i]:=r;
end;
{сортируем массив из 3-х первых элементов}
for i:=1 to 2 do
begin
max:=a[i];
for j:=i+1 to 3 do
if a[j]>max then
max:=a[j];
a[j]:=a[i];
a[i]:=max;
end;
{Продолжаем ввод и сравниваем текущее число с массивом из 3-х первых}
while r<>0 do
begin
write('Ввод:');
readln (r);
if r>a[1] then
begin
a[3]:=a[2];
a[2]:=a[1];
a[1]:=r;
end
else
if r>a[2] then
begin
a[3]:=a[2];
a[2]:=r;
end
else
if r>a[3] then
a[3]:=r;
end;
{выводим 3 максимальных элемента}
writeln();
writeln('Три наибольших элемента массива:');
for i:=1 to 3 do
writeln(i,'-й: ',a[i]);
end.