Ответы на вопрос:
//pascalabc.net //версия 3.3, сборка 1634 begin var n: =readinteger('введите натуральное число: '); write('в числе ',n.tostring.where(x-> x='7').count,' цифр 7'); end.
Var ar: array of integer; max,i,n: integer; begin; randomize; max: =-2147483648; readln(n); setlength(ar,n+1); writeln('array: '); for i: =1 to n do begin; ar[i]: =random(-10,10); write(ar[i]: 4); if ar[i]> max then max: =ar[i]; end; ar[1]: =max*2; ar[n]: =max*2; writeln; writeln('final array: '); for i: =1 to n do write(ar[i]: 4); end.
Популярно: Информатика
-
ruuuuuyslan07.06.2022 20:30
-
Leyla131327.11.2021 12:16
-
ДашаСалина21.06.2023 01:00
-
shitova20023p02gai11.10.2020 08:37
-
fgdh1waffeaf16.03.2023 17:46
-
alenalis4112513.10.2021 23:08
-
EvaGRNV27.09.2021 23:15
-
Annaaa6387913.12.2021 15:45
-
nikskrypkin24.01.2020 08:57
-
JohnSto08.12.2022 08:20