{% else-1 %}
Обновить
* Тема закрыта!
21.
-=MTV=- * [мошенник] 3.56
(14 дек 2013, 19:00) [0/0] [0] [спам] [под]
Третий Рейх,

Так помоги *

22.
bibilink * 19.01
(14 дек 2013, 19:01) [0/0] [0] [спам] [под]

помню, в школе на информатике обясняли паскаль* но мне тогда это нафиг не надо было*

23.
JEYSER * 8.13
(14 дек 2013, 19:02) [0/0] [0] [спам] [под]

кто то с java аплетами работал?

24.
Третий Рейх * [мошенник] 3.58
(14 дек 2013, 19:02) [0/0] [0] [спам] [под]

-=MTV=-, ну во первых я не у компа,а во вторых - небуду *

25.
Третий Рейх * [мошенник] 3.58
(14 дек 2013, 19:02) [0/0] [0] [спам] [под]

JEYSER, я работал.

26.
LiMpo * 1.66
(14 дек 2013, 19:03) [0/0] [0] [спам] [под]

MisS_VampiR, 25

27. [автор] (14 дек 2013, 19:05) [0/0] [0] [спам] [под]

Это до конца?
Составить программу для нахождения минимального и максимального элементов массива, а также индексов этих элементов. Ранжировать (упорядочить) одномерный массив п заданному признаку.
(2,56; 9,03; -2,0876; -187,5; 8,088; 12,6; - 0,76; 34,86; 0,2) по возрастанию

Код:

var a:array[1..9] of real; i,j,max,min:integer;
begin max:=1; min:=1;
for i:=1 to 9 do begin
readln(a[i]);
if a[max]<a[i] then max:=i;
if a[min]>a[i] then min:=i;
end;

writeln(min:5,a[min]:10,max:5,a[max]:10);

for i:=1 to 9 do begin
for j:=1 to 9 do begin
if a[i]<a[j] then begin
max:=a[i]; a[i]:=a[j]; a[j]:=max;
end;
end;
end;

for i:=1 to 9 do begin
writeln(a[i]);
end;
end.

28.
JEYSER * 8.13
(14 дек 2013, 19:06) [0/0] [0] [спам] [под]

DrFix, нас просят сделать в еклипсе аплет и страницу на которой аплет работает.

29. [автор] (14 дек 2013, 19:06) [0/0] [0] [спам] [под]
Третий Рейх,

ну это для тебя.

30.
KoT * [мошенник] 1.91
(14 дек 2013, 19:06) [0/0] [0] [спам] [под]

Тебе в куплю/продажу на веник, там с паскалем помогут

Подписаны: 1
Скачать тему | Файлы темы | Фильтр сообщений