|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
13.12.2009, 13:05 | #1 |
Пользователь
Регистрация: 03.12.2009
Сообщений: 52
|
подкиньте идею как решить эту задачу в паскале
Условие: дан целочисленный массив из 50 элементов найти наименьший
элемент, а затем вычесть его из каждого элемента. наименьший элемент я нашел, а как вычесть не понимаю. вроде чтото написал но походу это не так. program zad; uses crt; var a: array [1..50] of integer; b: array [1..50] of integer; min,i:integer; begin clrscr; randomize; for i:= 1 to 50 do a[i]:=random (20)-20; for i:=1 to 50 do write (a[i]:2); min:=a[1]; for i:= 1 to 50 do if min>a[i] then min:=a[i]; writeln; write ('min=',min); b[i]:=b[i]-min; writeln; for i:=1 to 50 do write (b[i]:2); end. |
13.12.2009, 13:12 | #2 | ||
АльTRUEи$т
Форумчанин
Регистрация: 19.03.2009
Сообщений: 784
|
Цитата:
Код:
Цитата:
|
||
13.12.2009, 14:20 | #3 |
Пользователь
Регистрация: 03.12.2009
Сообщений: 52
|
|
13.12.2009, 15:21 | #4 | |
АльTRUEи$т
Форумчанин
Регистрация: 19.03.2009
Сообщений: 784
|
Ну и правильно - минимум ищем где? в массиве a
А какого же многочлена вы из элементов массива b минимум массива а вычитаете? Причем массив b не заполнен ничем кроме 0- а если из 0 вычесть -20 то и получится 20! Че фигней то страдать? Цитата:
|
|
13.12.2009, 15:40 | #5 |
Пользователь
Регистрация: 03.12.2009
Сообщений: 52
|
спасибо. сделал.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Подкиньте идею... | Egik_net | Microsoft Office Access | 9 | 18.10.2009 01:08 |
Паскаль. Подскажите пожалуста как решить эту задачу. | svobodys | Помощь студентам | 10 | 04.11.2008 14:10 |
Подкиньте идею, пожайлуста | frankk | Общие вопросы C/C++ | 2 | 08.06.2008 19:15 |
есликто нибудь знает как решить эту задачу ,то все в ваших руках! | эра | Помощь студентам | 9 | 25.04.2008 00:06 |