Вот задание: Создайте рекурсивную функцию на F#, возводящую произвольное число в заданную степень.
110
483
Ответы на вопрос:
Var a,max,sum: integer; arr: array [0..2015] of integer; begin randomize; max: =-500; sum: =0; for a: =0 to 2015 do begin arr[a]: =random(1001)-500; if max< arr[a] then max: =arr[a]; end; write('максимальный элемент массива ==> ',max); writeln(); if max mod 2 = 1 then begin for a: =0 to 2015 do begin if arr[a] mod 2 =1 then sum: =sum+arr[a]; end; writeln('сумма чисел одинаковой чётности числу ',max,' = ',sum); end; sum: =0; if max mod 2 = 0 then begin for a: =0 to 2015 do begin if arr[a] mod 2 =0 then sum: =sum+arr[a]; end; writeln('сумма чисел одинаковой чётности числу ',max,' = ',sum); end; end.
Популярно: Информатика
-
шишловская16.01.2022 11:44
-
Krossmans11128.04.2020 12:52
-
vanikkuz23.05.2022 02:34
-
Skynet1420.09.2021 13:37
-
Mazadinec09.04.2023 11:01
-
PROKUROR11118.04.2020 08:17
-
rmnikkp00szv04.08.2020 05:42
-
mooziviycom31.07.2022 22:17
-
МистрКрутой1111.05.2023 21:02
-
Дани4ка1414.08.2020 16:19