Выбери, какой из этих файлов не заражает вирус *
драйверы – *.sys
библиотеки – *.dll
видео (*.avi, *.mpg, *.wmv)
документы с макросами
217
377
Ответы на вопрос:
var a: array [1..100] of integer; n,k,i,j: integer; begin {вводим} for i: =1 to 20 do {элементы} read (a[i]); {массива} for j: =1 to n-1 do {сортируем элементы массива по возрастанию,} for i: =1 to n-j do if a[i] > a[i+1] then begin k: =a[i]; a[i]: =a[i+1]; a[i+1]: =k; end; {то есть от самого маленького до самого большого} for i: =1 to 20 do {выполняем заданное условие} if ((a[i] mod 2)=1) and ((a[i] mod 5)=0) then begin writeln ('требуемое значение ',a[i]); break; end; end.
Популярно: Информатика
-
sergejryazanov22811.04.2022 08:18
-
МаксимаДолгун0210.09.2022 17:34
-
ИЩЕ609.05.2021 21:18
-
даша2008819.07.2021 08:58
-
mileenkaaa05.09.2020 02:30
-
Тлопап16.12.2020 15:02
-
Файлетмер06.02.2020 13:31
-
Kristina2003star130.04.2021 18:07
-
ashkon20.04.2023 22:08
-
слар29.09.2021 02:38