Найти два наибольших элемента массива целых чисел

@FantsiaChan · Регистрация: 09.09.2018

Author24 — интернет-сервис помощи студентам

Есть массив из 3 элементов, надо найти два наибольших

Не по теме:

я овощ,простейшую задачу не могу решить

Добавлено через 25 секунд

Pascal

program m7;
 
var
  a: array [0..2] of integer;
 
begin;
  readln(a[0], a[1], a[2]);
  
  end.

Добавлено через 2 минуты
... и вывести их

@JuriiMW · 17.10.2018, 05:04

Типа так:

Pascal

program m7;
 
var
  a: array [0..2] of integer;
 
begin;
  readln(a[0], a[1], a[2]);
  if a[0] > a[1] then begin a[0] := a[0] + a[1]; a[1] := a[0] - a[1]; a[0] := a[0] - a[1]; end;
  if a[1] > a[2] then begin a[1] := a[1] + a[2]; a[2] := a[1] - a[2]; a[1] := a[1] - a[2]; end;
  if a[0] > a[1] then begin a[0] := a[0] + a[1]; a[1] := a[0] - a[1]; a[0] := a[0] - a[1]; end;
  WriteLn(a[1], #32, a[2]);
  end.

	17.10.2018, 05:04

Найти два наибольших элемента массива целых чисел

Решение