Вопрос по информатике:
Помогите пожалуйста составить программу. НА ПАСКАЛЕ.ВТОРОЙ ВАРИАНТ.50 баллов даю
Пожаловаться
- 04.08.2016 08:27
- Информатика
- remove_red_eye 13641
- thumb_up 43
Ответы и объяснения 1
2)
var n,max,nom,i:integer;
b: array [1..1000] of integer;
begin
//создание какого то массива
readln(n);
max:=b[1]; nom:=1;
for i:=2 to n do
if b[i]>max then begin max:=b[i]; nom:=i; end;
writeln(max,nom);
end.
var n,max,nom,i:integer;
b: array [1..1000] of integer;
begin
//создание какого то массива
readln(n);
max:=b[1]; nom:=1;
for i:=2 to n do
if b[i]>max then begin max:=b[i]; nom:=i; end;
writeln(max,nom);
end.
Пожаловаться
- 05.08.2016 16:02
- thumb_up 16
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы