Ввести с клавиатуры массив из 5 элементов,найти минимальный из них. пример: введите пять чисел: 4 15 3 10 14 минимальный элемент 3 я пыталась, но эта прога не правильная, исправьте что не так! program qq; var a: array[1..5] of integer; min, i: integer; begin writeln('введите пять чисел: '); for i: =1 to 5 do read(a[i]); min: =a[1]; for i: =1 to 5 do if a[i] < min then min: =a[1]; writeln('минимальный элемент: ', min); end.
217
324
Ответы на вопрос:
> if a[i] < min then min: = a[1]; > if a[i] < min then min: =a[i]; program qq; var a: array[1..5] of integer; min, i: integer; begin writeln('ââåäèòå ïÿòü ÷èñåë: '); for i: =1 to 5 do read(a[i]); min: =a[1]; for i: =1 to 5 do if a[i] < min then min: =a[i]; writeln('минимальный элемент: ', min); end.
При 256 символьном алфавите, каждый символ кодируется одним байтом. 40*9*512*2=368640байт. делим на 1024 =360 кбайт.
Популярно: Информатика
-
nikzyk29.09.2022 18:58
-
persik211314.02.2021 15:29
-
Kseniamaria22.09.2021 23:30
-
Sveto4ka200611.01.2023 01:15
-
Gali7713.03.2022 19:29
-
dayanocha008012.07.2020 20:52
-
SuperChelovek04.03.2020 15:16
-
dashalapteva24.07.2021 20:41
-
Dhffhjh21.08.2020 07:53
-
Adil11111111925.07.2020 07:06