Генератором случайных чисел генерируется последовательность 50-ти случайных чисел из диапазона [-10; 20]. вычислить сумму положительных элементов последовательности, порядковые номера которых нечетны.
164
445
Ответы на вопрос:
1. короткий современный вариант ("один оператор") // pascalabc.net 3.1, сборка 1230 от 27.04.2016 begin writeln('sпол.неч = ',arrrandom(50,-10,20).println .where((x,i)-> (x> 0) and (i.) end. тестовое решение 15 16 0 17 20 7 -3 -4 9 9 -3 -8 14 10 10 11 7 18 -8 8 0 15 1 4 11 1 9 -10 -7 -7 12 17 8 13 7 15 1 13 12 11 4 -5 -3 -6 -5 -10 -9 -8 8 -8 sпол.неч = 148 2. длинный "школьный" вариант ("почувствуйте разницу") // pascalabc.net 3.1, сборка 1230 от 27.04.2016 var a: array[1..50] of integer; i,s: integer; begin randomize; s: =0; for i: =1 to 50 do begin a[i]: =random(31)-10; write(a[i],' '); if (a[i]> 0) and odd(i) then s: =s+a[i] end; writeln; writeln('sпол.неч = ',s) end. тестовое решение 4 14 4 7 9 -4 3 6 20 -10 3 -3 15 12 9 0 3 12 13 -1 9 -2 -2 16 18 -2 5 9 17 -3 4 -6 10 10 -5 10 8 13 12 15 13 1 12 1 7 6 9 2 -9 -6 sпол.неч = 207
Var number,a,b: integer; begin writeln('введите двузначное число'); readln(number); a: =number div 10; b: =number mod 10; writeln(a,' - первая цифра числа'); writeln(b,' - вторая цифра числа'); writeln('среднее арифметическое цифр числа = ',(a+b)/2 ); end.
Популярно: Информатика
-
vmatveicheva04.09.2022 04:35
-
лиза1232224.06.2021 04:19
-
меаавепеу27.02.2020 07:34
-
rabramchik25.06.2023 21:12
-
linakabak1234502.06.2023 20:01
-
zarya020722.07.2022 16:26
-
нпрр30.05.2023 00:13
-
Adriet27.01.2022 05:37
-
TupouChuBaK09.03.2020 05:03
-
anna6pie16.03.2023 11:56