Водномерном массиве, состоящем из 12 целых чисел, подсчитать количество положительных элементов.

231

299

Посмотреть ответы 2

Ответы на вопрос:

бездoмныйБoг

Информатика

4,7(17 оценок)

1. короткий вариант // pascalabc.net 3.1, сборка 1230 от 27.04.2016 begin var a: =arrrandom(readinteger('n=',99); a.println; writeln('k=',a.where(x-> x> 0).count) end. тестовое решение n= 15 -69 10 83 -61 -21 -98 -75 -78 27 88 67 -84 61 62 -41 k=7 2. "школьный" вариант (а кто сказал, что будет легко? ) // pascalabc.net 3.1, сборка 1230 от 27.04.2016 const nn=100; var i,n,k: integer; a: array[1..nn] of integer; begin write('n= '); read(n); randomize; k: =0; for i: =1 to n do begin a[i]: =random(199)-99; write(a[i],' '); if a[i]> 0 then inc(k) end; writeln; writeln('k=',k) end. тестовое решение n= 15 28 46 88 -14 -55 -25 52 43 -7 17 71 -8 -34 56 79 k=9

Андрей1935362825

Информатика

4,5(25 оценок)

program m_1; var b: integer; begin writeln('введите номер месяца'); readln(b); if b> =13 then writeln('вы дурак месяцов всего 12'); case b of 1: writeln('в месяце 31 день '); 2: writeln('в месяце 28 дней'); 3: writeln('в месяце 31 день'); 4: writeln('в месяце 30 дней'); 5: writeln('в месяце 31 день'); 6: writeln('в месяце 30 дней'); 7: writeln('в месяце 31 день'); 8: writeln('в месяце 31 день'); 9: writeln('в месяце 30 дней'); 10: writeln('в месяце 31 день'); 11: writeln('в месяце 30 дней'); 12: writeln('в месяце 31 дней'); end; end.