помогите!!! решите пожалуйста заадачку... - Форум
Пятница, 09.12.2016, 10:42
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » помогите!!! решите пожалуйста заадачку...
помогите!!! решите пожалуйста заадачку...
krevetkaДата: Четверг, 31.12.2009, 16:01 | Сообщение # 1
Лейтенант
Группа: Новичок
Сообщений: 12
[ 0 ]
Статус: Offline
написать программу нахождения разности номера максимального и минимального значений в последовательности N вводимых чисел.
 
ignorerДата: Четверг, 31.12.2009, 16:27 | Сообщение # 2
Генералиссимус
Группа: Модераторы
Сообщений: 602
[ 18 ]
Статус: Offline
как последовательность задаётся? с клавиатуры, с файла, или случайно генерируется?
 
krevetkaДата: Четверг, 31.12.2009, 16:41 | Сообщение # 3
Лейтенант
Группа: Новичок
Сообщений: 12
[ 0 ]
Статус: Offline
не указано....пусть будет случайно генерируется
 
ignorerДата: Четверг, 31.12.2009, 16:50 | Сообщение # 4
Генералиссимус
Группа: Модераторы
Сообщений: 602
[ 18 ]
Статус: Offline
ок щас решу

Добавлено (31.12.2009, 16:50)
---------------------------------------------
var m : array[1..100] of integer;
i, n, min, max, imax, imin : integer;
begin
cls;
read(n);
for i:=1 to n do begin
m[i]:=random(20);
write(m[i], ' ');
end;
max:=m[1]; min:=m[1]; imax:=1; imin:=1;
for i:=1 to n do begin
if m[i]>max then begin max:=m[i]; imax:=i; end;
if m[i]<min then begin min:=m[i]; imin:=i; end;
end;
writeln; write(imax-imin);
end.

 
krevetkaДата: Четверг, 31.12.2009, 17:08 | Сообщение # 5
Лейтенант
Группа: Новичок
Сообщений: 12
[ 0 ]
Статус: Offline
Спасибо огромное=))))))))))))
 
ignorerДата: Четверг, 31.12.2009, 17:22 | Сообщение # 6
Генералиссимус
Группа: Модераторы
Сообщений: 602
[ 18 ]
Статус: Offline
всегда пжалста smile
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » помогите!!! решите пожалуйста заадачку...
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016