За еденицу измерения информации принимается: а) 1 бод, б) 1 бар, в) 1 бит, г) 1 кг, д) 1 фут? !
230
399
Ответы на вопрос:
Pascalabc: var a: array of real; k,i,n: integer; x: real; begin write('задайте размер массива = '); readln(n); setlength(a,n); for i: =0 to n-1 do begin readln(a[i]); if (i> 0) and (k=0) and (x> a[i]) then k: =1; x: =a[i]; end; if k=1 then writeln('элементы массива не являются возрастающей последовательностью') else writeln('элементы массива являются возрастающей последовательностью'); end.
Популярно: Информатика
-
ТАААААААААААПКИ03.02.2022 17:55
-
dasha28118210.10.2022 01:44
-
svyatoslavkorchagin03.08.2020 22:22
-
Hyies13.10.2020 00:22
-
ruzar198721.04.2021 16:26
-
sasulencijaozq7jr10.05.2021 05:36
-
nastademirhanova02.03.2020 08:04
-
даха14401.02.2021 08:26
-
TheEasyCloud27.07.2022 14:28
-
6епррг15.09.2021 05:03