Baimer

Яблоко

Спасибо за фотки!! От души посмеялся *pactalom

*pactalom

Шарик Октябрьский

ОГРада

178 - 60

Я против! Не вижу в этом никакой необходимости.

Ягуар

КАбак

НАркоман

НИКотин

БАДминтон

АЗбука

ЛЯгушка

Digma var a:array [1..3,1..3]of integer; i,j,n:integer; begin for i:=1 to 3 do for j:=1 to 3 do begin readln(a[i,j]); if a[i,j]<0 then n:=n+1 else a[i,j]:=a[i,j]+2; end; for i:=1 to 3 do begin writeln; for j:=1 to 3 do write(a[i,j],' '); end; writeln('отрицательных элементов ',n); end.program zadacha1; var a:array[1..10]of real; i,n:integer; x:real; begin for i:=1 to 10 do readln(a[i]); x:=a[1]; n:=1; for i:=2 to 10 do if x x:=a[i]; n:=i; end; a[n]:=a[1]; a[1]:=x; for i:=1 to 10 do writeln(a[i]); end.program zadacha2;

Йогурт

Целина

Мас Большое спасибо!!

ИЕрархия

ОДиночество

ИЕрархия

Всех с Днем Победы!!!

Кино, ДДТ, Михаил Круг

КАбак

И я за чат!