10.12.2013, 22:22 | #1 (permalink) |
Новичок
Регистрация: 10.12.2013
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите по решению программы
a) максимальний по модулю елемент; Пожалуйста код и блок схему) |
10.12.2013, 22:22 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Я думаю, что решение проблемы можно поискать в аналогичных топиках Помогите написать программы Помогите с поиском программы Помогите с написанием программы Помогите с написанием программы на Pascal Помогите с написанием программы на С++ Помогите пожалуйста с написанием программы |
11.12.2013, 19:53 | #4 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Да вообще-то я имел в виду язык программирования. Паскаль? Если да, то какой: Turbo, ABC? Или вовсе Delphi? У Вас об этом ни гу-гу.
|
12.12.2013, 01:10 | #5 (permalink) |
Новичок
Регистрация: 10.12.2013
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
аа, точно, pascal ABC!)
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
12.12.2013, 10:06 | #6 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Код:
Const N=18; Var D:Array[1..N] of Integer; i,Max,I_max:Integer; Begin Randomize; Max:=0; For i:=1 to N do begin D[i]:=-50+Random(100); Write(D[i]:4); if Abs(D[i])>Max then begin Max:=Abs(D[i]); I_max:=i; end; end; Writeln; Writeln; Writeln('Result: element N',I_max,', value ',D[I_max]); Readln End. |
12.12.2013, 19:44 | #8 (permalink) |
Новичок
Регистрация: 10.12.2013
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|