Вмассиве хранится информация максимальной скорости каждой из 40 марок легковых автомобилей. определить порядковый номер самого быстрого автомобиля. если таких автомобилей несколько, то должен быть найден номер: а) первого из них; б) последнего из них.
172
344
Ответы на вопрос:
Const n=40; var a: array[1..n] of integer; i,amax,n1,nn: integer; begin randomize; writeln('элементы массива'); amax: =0; for i : = 1 to n do begin a[i]: =random(61)+170; { [170..230] } write(a[i]: 4); if amax< a[i] then begin amax: =a[i]; n1: =i; nn: =i end else begin if amax=a[i] then nn: =i end end; writeln; writeln('номер первого автомобиля ',n1,', последнего- ',nn) end. тестовое решение: элементы массива 185 202 226 209 200 183 219 181 228 181 206 171 182 210 226 187 214 229 219 219 219 206 229 183 178 177 197 199 180 186 183 203 191 194 214 197 215 194 221 187 номер первого автомобиля 18, последнего- 23
Популярно: Информатика
-
ndehost07.02.2022 10:46
-
taraniariba01.01.2020 22:12
-
Кирилл62а22.01.2023 17:26
-
maksimtihonov3405.06.2023 18:13
-
anuaribragimov131.01.2021 10:37
-
NBAH12304.02.2020 21:31
-
Рамина111111117.06.2023 12:58
-
suvaeva884p019j516.08.2022 12:19
-
steshaaaaa126.10.2020 06:35
-
Artem57418922.11.2021 23:33