Запись оставлена fwe 19.01.2017 в 03:30
запустить | скачать | новая запись
- Program asd;
- var a:array[1..5] of integer;
- max,min,Imax,Imin,i:integer;
- begin
- a[1]:=max;
- a[1]:=min;
- for i:=1 to 5 do
- begin
- if a[i]>max then
- max:=a[i];
- if a[i]<min then
- min:=a[i];
- end;
- writeln('max=',max);
- writeln('min=',min);
- readln;
- end.
Отправка исправлений и поправок. (cоздать новую запись)
После отправки поправок вы сможете посмотреть различия между старой и новой записью.