Вналичие 12 предметов, нужно найти самый тяжелый и - вопрос №128402917 от katyademona04 24.08.2020 04:30

Question

Информатика: Вналичие 12 предметов, нужно найти самый тяжелый и самый легкий предмет? составьте программу на языке программирования pascal

katyademona04 · Answer

Var   i, max,min: integer;  mas:array[1..12] of integer;begin  for i := 1 to 12 do    read(mas[i]);  max:=mas[1];  min:=mas[1];  for i:=1 to 12 do  begin  if mas[i] max then max:=mas[i];  if mas[i] min then min:=mas[i];  end;  write(max, ,min);end....