Напишите кто-нибудь, на завтра надо, умоляю, только ! я уже 30 раз это посылаю, ! кто сможет, только правильно! кто, что сможет, но надо все, на ! решить в паскале! 1.дано массив из15 элементов. найти максимальныйэлемент массива и минимальный элемент массива. узнать на сколько больше максимальный элемент минимального. 2. дано массив из 15 элементов, заполнить массивслучайными числами, которые не больше 30 и найти минимальный элемент массива
226
401
Ответы на вопрос:
Const nmax = 15; var a: array [1..nmax] of integer; i,min,max: integer; begin min: =a[1]; max: =a[1]; for i: =1 to nmax do begin if a[i]> max then max: =a[i]; if a[i]< min then min: =a[i]; end; writeln('max-min=',max-min); end. 2) const nmax = 15; var a: array [1..nmax] of integer; i,min: integer; begin min: =a[1]; randomize; for i: =1 to nmax do a[i] = random(30); for i: =1 to nmax do if a[i]< min then min: =a[i]; end.
Популярно: Информатика
-
denis1488212.10.2020 13:10
-
Tortimilka05.12.2022 14:27
-
Няшка109729.12.2020 00:38
-
AliMsi10.11.2021 22:46
-
ludamishina2627.03.2021 21:59
-
azimbayevmukan16.04.2021 01:14
-
danilejik29.06.2023 05:47
-
dilyakon11.01.2021 06:07
-
Dayanna0104.11.2020 06:55
-
dk05080512.12.2021 05:16