Ответы на вопрос:
// pascalabc.net 3.1, сборка 1230 от 27.04.2016 begin var a: =arrrandom(readinteger('n=',20); a.println; var k: =0; for var i: =0 to a.length-1 do if a[i]> 7 then begin a[i]: =7; inc(k) end; a.println; writeln('количество замен равно ',k); // если нужно общее количество семерок, замените // предыдущую строку следующей: // writeln('количество семерок равно ',a.where(x-> x=7).count); end. тестовое решение n= 15 10 -11 14 12 -9 17 -4 11 -20 14 5 5 -3 -1 -2 7 -11 7 7 -9 7 -4 7 -20 7 5 5 -3 -1 -2 количество замен равно 6 // pascalabc.net 3.1, сборка 1230 от 27.04.2016 begin var a: =arrrandom(20,-5,8); a.println; var b: =a.where(x-> x< > 0).toarray; b.println; writeln('количество нулей равно ',20-b.count); end. тестовое решение -4 0 -5 -1 7 3 6 7 7 0 5 -2 -5 -2 7 0 3 1 7 3 -4 -5 -1 7 3 6 7 7 5 -2 -5 -2 7 3 1 7 3 количество нулей равно 3
Популярно: Информатика
-
МистрКрутой1126.12.2022 14:09
-
ivan44505.03.2022 22:03
-
Kseniya2007101.01.2021 05:05
-
лидуська2221.07.2020 06:29
-
vik2005106.02.2021 00:14
-
avoka13.05.2023 05:27
-
svetysa9513.01.2020 14:53
-
akkiekim03.07.2020 11:43
-
zedl16.06.2022 13:02
-
MarySolov02.01.2020 07:01