Регистрация
A11002030999
14.10.2020 17:19
Информатика
Есть ответ 👍

Кимде бар информатика бжб через билим ленд​

131
137
Посмотреть ответы 1

Ответы на вопрос:

mayyyyyyka
mayyyyyyka
4,8(53 оценок)

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.

Популярно: Информатика