учебник Л.Л.Босовой А.Ю.Босова - задания для практических работ -задания 4.16
и 4.17 и 4.18 выполнить я не аз в компьтере
или хотя бы скажите где можно скачать готовые работы.

Рифма какой то песни что ли?

Анимационное изображение

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.

Программа- это описание последовательности действий,который долженвыполнитькомпьютер для решенияпоставленной задачи обработке данных.