Задайте массив из 10 элементов с датчика случайных чисел. замените всё его положительные элементы на наибольший отрицательный элемент. выведите на экран исходный и полученный массив. на паскале
278
466
Ответы на вопрос:
uses crt; var min,i: integer; a: array[1..10] of integer;
begin randomize; for i: =1 to 10 do a[i]: =random(91)-40; for i: =1 to 10 do write(a[i],' '); min: =a[1]; for i: =1 to 10 do if min > a[i] then min: =a[i]; for i: =1 to 10 do if a[i]> 0 then a[i]: =min; writeln; for i: =1 to 10 do write(a[i],' ');
readln; end.
Flag = 15
choice = int(input("3*5="))
if Flag == choice:
print("Верно")
else:
print("Не верно")
Популярно: Информатика
-
nosorpg0208.04.2020 18:28
-
katysca08.03.2023 00:10
-
gleb300327.03.2023 17:21
-
сармановафакизат02.05.2023 08:21
-
maksdodaruk122.04.2021 05:28
-
Кристина108156705.08.2020 20:49
-
Kamil7377324.01.2020 23:17
-
Jenco12.02.2021 02:13
-
Vikatyn09.09.2022 20:32
-
virudskaya24.10.2020 03:45