Ответы на вопрос:
Var a: array[1..10] of integer; s,i: integer; begin for i: =1 to 10 do begin a[i]: =random(10); s: =s+a[i]; end; write('сумма чисел больших пяти равна ',s); end.
Язык pascal, работа на массиве. с заполнением с клавиатуры. ты заполняешь 5 элементов ( через enter ), а он тебе выводит тоже самое, только с однерками вместо нулей. var x: array[1..5] of integer; var i,h: integer; begin for i: = 1 to 5 do begin; readln(h); if (h=0) then x[i]: =1 else x[i] = h; end; for i: =1 to 5 do begin; writeln('элемент номер ',i,' массива: ',x[i]); end; readln(x); end.
Популярно: Информатика
-
Rameros27.04.2020 07:29
-
егормицевич11.07.2021 12:22
-
Oleg00012317.02.2023 16:55
-
mabrenner4107.10.2021 12:18
-
Арти75406.11.2022 10:41
-
5949492094858326.06.2021 19:36
-
KaapaaToown27.03.2023 03:34
-
Logas2574318.12.2020 13:47
-
gjgjggfasf13.12.2021 06:59
-
gfitgfbjgffj25.02.2023 14:15