Регистрация
тигра36
06.05.2020 10:18
Информатика
Есть ответ 👍

Как в паскале построить два графика функций 35​

169
231
Посмотреть ответы 1

Ответы на вопрос:

mrdaaly
mrdaaly
4,4(27 оценок)

var x:array [1..10] of integer;

i,min,max:integer;

begin

 for i:=1 to 10 do begin writeln('введитие x[',i,']');

 readln(x[i]);end;

 min:=x[1];

 max:=x[1];

 for i:=2 to 10 do begin

   if x[i]>max then max:=x[i];

   if x[i]<min then min:=x[i];

 end;

 writeln(min*max)

end.

Популярно: Информатика