Запиши запрос (база данных ms access): записи, в которых названия стран заканчиваются на "ланд".
269
414
Ответы на вопрос:
1)
const n=10; var a: array [1..n] of integer; i,max: integer; begin write('введите массив: '); for i: =1 to n do read(a[i]); readln; max: =a[1]; for i: =1 to n do if a[i]> max then max: =a[i]; writeln('максимальный элемент - ',max); readln; end.2) 3)
const n = 100; var arr: array[1..n] of integer; i, m, qty: byte; begin write('количество элементов массива: '); readln(m); write('элементы массива через пробел: '); for i: =1 to m do read(arr[i]); readln; qty : = 0; i : = 2; while i < m do if (arr[i] > arr[i-1]) and (arr[i] > arr[i+1]) then begin qty : = qty + 1; i : = i + 2 end else i : = i + 1; writeln('кол-во элементов, которые больше соседей: ', qty); readln; end.вроде как-то так
Популярно: Информатика
-
gerasimovichninka05.01.2020 22:07
-
vika20092000115.02.2021 14:38
-
ав00302.09.2020 03:49
-
sashkaignatoly09.01.2021 12:54
-
nikvermenox7gay05.07.2022 16:22
-
ладаседан613.04.2021 01:17
-
Katpo29.08.2021 02:54
-
салманчик200828.11.2021 01:35
-
valeryahasko07017.01.2020 11:02
-
NikikitaHyduak07.11.2020 20:17