// pascalabc.net 3.3, сборка 1576 от 16.11.2017 // внимание! если программа не работает, обновите версию! begin var a: =arrrandom(31,-10,12); a.println; writeln('дней с нулевой температурой- ',a.where(t-> t=0).count); writeln('дней с отрицательной температурой- ',a.where(t-> t< 0).count); writeln('дней с положительной температурой- ',a.where(t-> t> 0).count); end. пример 9 -8 0 -10 5 -10 5 -8 -5 8 -2 0 -7 -5 3 6 10 5 -5 1 5 5 10 -3 -3 6 8 7 6 7 12 дней с нулевой температурой- 2 дней с отрицательной температурой- 11 дней с положительной температурой- 18 если хочется вводить с клавиатуры, вместо строки var a: =arrrandom(n,-10,12); a.println; надо написать var a: =readarrinteger('введите температуру по дням'+newline,31);
dima0218687
10.10.2022
Во второй строчке видим операторы 'if' и 'then', которые переводятся с как 'если' и 'тогда' соответственно. т. е. если, как бы, перевести вторую строчку на язык, то получим следующее: "если a < 5 тогда" таким находящаяся после then функция выполняется только в том случае, если выражение между if и then верно. разберем фрагмент кода: a : = 10; if a < 5 then a : = 5; понятно, что на первой строчке переменная 'a' приравнивается к 10. затем на второй строчке идет условие a < 5. подставляем 'a': 10< 5 — неравенство не верно, поэтому 'a : = 5; ' не будет выполнено в этой программе, и 'a' не изменилось, и по-прежнему равно 10. рассмотрим еще один фрагмент a : = 15; if a > 10 then a : = 10; в первой строке 'a' приравнивается к 15. затем идет условие a> 10, 15> 10 — верно, поэтому выполняем следующую строку и приравниваем 'a' к 10. в итоге 'a' становится равным 10
правильные 1, 2, 3, 5, 7, 8