Guest
Новичок
|
   
2,3,1 а задачу можешь напечатать а то у меня не выходит
|
Всего сообщений: Нет | Присоединился: Never | Отправлено: 18 дек. 2006 16:36 | IP
|
|
Guest
Новичок
|
дабколичество элементов четно
|
Всего сообщений: Нет | Присоединился: Never | Отправлено: 18 дек. 2006 16:36 | IP
|
|
amigo
Начинающий
|
Цитата: Guest написал 18 дек. 2006 16:25
элементы
что то типа этого:
......
s:=0;
for i:=1 to n do s:=s+M{i};
s:=s/n;
for i:=1 to n do begin
1:
if M{i}>s then begin
for j:=i to n do begin
M{i}:=M{i+1};
goto 1;
end;
end;
end;
|
Всего сообщений: 54 | Присоединился: март 2006 | Отправлено: 18 дек. 2006 16:38 | IP
|
|
Guest
Новичок
|
что означает s:=s/n
|
Всего сообщений: Нет | Присоединился: Never | Отправлено: 18 дек. 2006 16:45 | IP
|
|
bbk
Удален
|
Помогите решить задачу: составить программу нахождения максимума из 4 чисел (по теме "Подпрограммы")
|
Всего сообщений: N/A | Присоединился: N/A | Отправлено: 18 дек. 2006 17:07 | IP
|
|
Guest
Новичок
|
сравни числа между собой и из каждого сравнения выражай любой переменной максимальное число
|
Всего сообщений: Нет | Присоединился: Never | Отправлено: 18 дек. 2006 17:24 | IP
|
|
Guest
Новичок
|
дан массив целлых чиселюпоменять местами четные и нечетныебесли количество элементов четно по теме подпрограммы,полностью напечатать программу,
|
Всего сообщений: Нет | Присоединился: Never | Отправлено: 18 дек. 2006 17:26 | IP
|
|
bbk
Удален
|
если не сложно, то напечатай программу полностью
(Сообщение отредактировал bbk 19 дек. 2006 0:31)
|
Всего сообщений: N/A | Присоединился: N/A | Отправлено: 18 дек. 2006 17:30 | IP
|
|
Guest
Новичок
|
там if a>b then writeln m else a
if m>c then writeln m else c
if m>d then writeln m else d
if m>d then writeln m else d
|
Всего сообщений: Нет | Присоединился: Never | Отправлено: 18 дек. 2006 17:39 | IP
|
|
bbk
Удален
|
Спасибо тебе огромное!
|
Всего сообщений: N/A | Присоединился: N/A | Отправлено: 18 дек. 2006 17:46 | IP
|
|
Форум
Турбо Паскаль. Программирование на Pascal
