Помогите решить задачу, завтра сдавать!!!!!!!! - Форум
Понедельник, 05.12.2016, 07:25
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Помогите решить задачу, завтра сдавать!!!!!!!! (ВООБЩЕ НЕ СООБРАЖАЮ, КАК РЕШАТЬ!!!!)
Помогите решить задачу, завтра сдавать!!!!!!!!
RomaNДата: Понедельник, 18.01.2010, 10:24 | Сообщение # 1
Сержант
Группа: Новичок
Сообщений: 8
[ 0 ]
Статус: Offline
В массиве чисел А1, А2,....Аn найти минимальное по абсолютной величине число и его номер.
 
SagyndykДата: Понедельник, 18.01.2010, 12:43 | Сообщение # 2
Сержант
Группа: Новичок
Сообщений: 7
[ 1 ]
Статус: Offline
Program p1;
const n=10
var a:array[1..n] of integer;
i, min:integer;
begin
for i:=1 to n do begin
write('vvedite a',i,'=');
readln(a[i]);
end;
min:=abs(a[1]));
for i:=1 to n do begin
if abs(a[i])<min then begin
min:=abs(a[i]);
k:=i;
end;
end;
writeln('minimalni element=', min, ' ', 'ego nomer',k);
end.

Должно получиться, я на паскале не компилировал, просто написал пр, сообщи о результате.

 
RomaNДата: Понедельник, 18.01.2010, 18:01 | Сообщение # 3
Сержант
Группа: Новичок
Сообщений: 8
[ 0 ]
Статус: Offline
Огромное СПАСИБО!!!!!! biggrin Набрал в паскале на k:=i; выдает "неизвестный идентификатор". Но тем не менее благодарю за помощь,я бы наверное никогда сам не решил эту задачу!!!! wink
 
[Nostr]Дата: Понедельник, 18.01.2010, 18:06 | Сообщение # 4
Генерал-майор
Группа: Участник
Сообщений: 48
[ 3 ]
Статус: Offline
Code
i, min:integer;  

измени на

Code
i, min,k :integer;
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Помогите решить задачу, завтра сдавать!!!!!!!! (ВООБЩЕ НЕ СООБРАЖАЮ, КАК РЕШАТЬ!!!!)
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016