Составить программу паскаль нахождения максимального элемента массива а[1..7
121
235
Ответы на вопрос:
Var a: array [1..7] of real var max: real, i: integer begin for i: =1 to 7 do readln (a[i]); max = a[1]; for i: =2 to 7 do if a[i] > max then max : = a[i]; writeln (max); end.
Популярно: Информатика
-
Nastiabbk08.04.2021 10:39
-
аноним123456789101131.03.2022 11:23
-
Alina5533203.06.2022 06:42
-
soniy13505.02.2022 08:30
-
Аня2003120427.08.2022 07:54
-
kisakz1206.02.2022 09:55
-
alinnnkaaa28.05.2022 12:21
-
vorobeowmikhai18.08.2020 17:06
-
talanovaelena225.08.2021 08:13
-
filatevanastya117.10.2020 08:23