Перечислите номера тех функций, которые относятся к логическим: a. мин b. макс c. сумм d. если e. не
215
447
Ответы на вопрос:
Type linmass = array [1..1000] of integer; var a : linmass; n, i, j : integer; begin write('количество элементов массива: '); readln(n); for i : = 1 to n do begin write('введите a[', i, '] '); readln(a[i]); end; i: =1; while i < = n do if (a[i] mod 2 = 0) and (a[i] mod i = 0) and (a[i] div 1000 = 0) and (a[i] div 100 > 0) then begin for j: =i+1 to n do a[j-1]: =a[j]; n: =n-1 end else i: = i+1; for i : = 1 to n do write(a[i]: 6); end.
Популярно: Информатика
-
AlexNickrodef04.03.2023 21:51
-
Zeus4113.01.2020 22:21
-
Киря000117.03.2023 20:14
-
sssmith24.05.2023 18:37
-
zhanarzhaulyba01.08.2022 07:53
-
Anna56789416.08.2021 22:19
-
EMPITINES30.12.2021 11:34
-
Нина2007101.05.2020 13:43
-
Viktoriua2586812.04.2022 18:59
-
maxim19943131.05.2022 06:01