Юлия
С этого момента я отказываюсь отыгрывать с тобой что-либо с высоким рейтингом.
Ибо АХАХАХАХХАХАХА
Evil 21:42:02
А если я аватарку сменю? :З
Юлия
Если там будет такая же упоротая рожа, то тоже нет. хД 21:42:42
Evil
Ааааааууууу :С 21:43:08
Юлия
Хе-хе
Таня
ЛПДАЛАОАЛАЗВДАЬАДПАЩВЛЛА 18:52:29
АтвлАЛАЗБСДАЖВЩАЩПЛАОАЛА
ОПЛПЩАЛПЛПЛАДСДА
ОАЛПЛАЬПЛАДЗЫ АЛР
Evil
Ты с чего именно? 18:52:41
Таня
Ялпддсьчдаьч бдсьпьм 18:52:43
СО ВСЕГО
program z_array;
uses crt;
var a:array[1..100] of integer;
n,i,min,max:byte;
temp:integer;
begin
clrscr;
writeln('Введите размерность массива');
readln(n);
writeln('Введите элементы массива');
for i:=1 to n do
begin
write('a[',i,']= ');
readln(a[i]);
end;
writeln('Данный массив');
for i:=1 to n do
write(a[i],' ');
min:=1;
max:=1;
for i:=2 to n do
begin
if a[i]>a[max] then max:=i;
if a[i]<a[min] then min:=i;
end;
temp:= a[min];
a[min]:=a[max];
a[max]:=temp;
writeln;
writeln('Полученный массив');
for i:=1 to n do
write(a[i],' ');
readln;
end.
__________________
Последний раз редактировалось тигрёнок, 08.12.2013 в 01:52.