Вход
Регистрация
О проекте Как заработать?
42

Написать программу на Паскале: «найти номер первого максимального…

koalv 22 августа 2022

Написать программу на Паскале: «найти номер первого максимального элемента во вводимой с клавиатуры последовательности чисел. Условие окончанияввода – ввод числа 0."

категория: информатика
ответить
в избранное

79

program zadacha_1; var max,rd,i,txr: integer; begini: =1; repeat; writeln ('Введи ',i,' — ое число'); readln (rd); if max

пользователи выбрали этот ответ лучшим
комментировать
в избранное ссылка отблагодарить

Знаете другой ответ?
Другие вопросы по информатике
sianukvil
22 августа 2022
1
ответ
СРОЧНО! ПРОГРАММА С ВЕТВЛЕНИЕМ! Составьте программу, которая по введенному вами k-число грибов, печатает фразу: «Мы нашли в лесу k грибов» причемсогласовывает окончание слова «гриб» с k.!
zev281
22 августа 2022
1
ответ
Помогите составить юлок схему к программе Var a,b,c: real; Begin write ('Введите a,b,c: '); readln (a,b,c); if (a>b) and (b>c) then Begin a: =a*2; b: =b*2; c: =c*2; End else Begin a: =abs (a); b: =abs (b); c: =abs (c); End; writeln ('a=',a: 2:2,' b=',b: 2:2,' c=',c: 2:2); readln; End.
rooboo
22 августа 2022
1
ответ
Составьте для чертежника алгоритм рисования прямоугольника со сторонами параллельным осямкоординат (2; 1) (7; 5)
pavelp
22 августа 2022
1
ответ
Напишите программу, которая выводит номера билетов, чтобы они не повторялись
c4actbe
22 августа 2022
1
ответ
Определите, что будет напечатано в результате работы следующей программы. Var s, k: integer; Begin s: =50; for k: =1 to 9 do s: =s — 3 write (s); End.
olegivaniloff
22 августа 2022
1
ответ
Скольких команд ввода исходных данных достаточно для решения произвольного квадратногоуравнения?
lost704
22 августа 2022
1
ответ
Какая аббревиатура обозначает в Интернете стандартную форму записи адресов файлов, ресурсов? А) НТТР Б) WWW C) PPPD) URL
lexamon
22 августа 2022
1
ответ
Какие целые числа следуют за а) 10111; б) 777 в 8 в) 1EF в 16
multik
22 августа 2022
1
ответ
Информационное сообщение объемом 0,5 Кбайта содержит 256 символов, Каким количеством бит кодируется каждый символ этогосообщения?
Задайте свой вопрос

ПОПУЛЯРНОЕ
sianukvil, 22 августа 2022
СРОЧНО! ПРОГРАММА С ВЕТВЛЕНИЕМ!
zev281, 22 августа 2022
Помогите составить юлок схему к программе Var a,b,c: real; Begin write ('Введите a,b,c: '); readln (a,b,c); if
rooboo, 22 августа 2022
Составьте для чертежника алгоритм рисования прямоугольника со сторонами параллельным осямкоординат (2; 1) (7; 5)
pavelp, 22 августа 2022
Напишите программу, которая выводит номера билетов, чтобы они не повторялись
c4actbe, 22 августа 2022
Определите, что будет напечатано в результате работы следующей программы
olegivaniloff, 22 августа 2022
Скольких команд ввода исходных данных достаточно для решения произвольного квадратногоуравнения?
lost704, 22 августа 2022
Какая аббревиатура обозначает в Интернете стандартную форму записи адресов файлов, ресурсов?
lexamon, 22 августа 2022
Какие целые числа следуют за а) 10111; б) 777 в 8 в) 1EF в 16
multik, 22 августа 2022
Информационное сообщение объемом 0,5 Кбайта содержит 256 символов…
27400
Алгебра
14821
Английский язык
14216
Биология
7369
Другой
720
Экономика
18828
Физика
8304
География
15850
Геометрия
5255
Информатика
11818
История
23332
Химия
15992
Литература
73118
Математика
8152
Обществознание
465
Правоведение
46271
Русский язык
Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...