Задать вопрос
29 ноября, 09:06

Определить значение переменных g и c, если n=5, a=[-2,5,0,8,-3]

c:=0; g:=0;

for i:=1 to n do

if a[i]>0 then begin

c:=c+a[i];

g:=g+1;

end;

+3
Ответы (1)
  1. 29 ноября, 10:48
    0
    В данном фрагменте программы условие "if" истинно, когда элемент массива a [i] > 0, то есть только положительные числа. Нам подходят числа "5, 0, 8".

    1. C = 0 + 5 = 5.

    G = 1.

    2. C = 5 + 0 = 5.

    G = 2.

    3. C = 5 + 8 = 13.

    G = 3.

    Ответ: g = 3, c = 13.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Определить значение переменных g и c, если n=5, a=[-2,5,0,8,-3] c:=0; g:=0; for i:=1 to n do if a[i]>0 then begin c:=c+a[i]; g:=g+1; end; ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы
Похожие вопросы по информатике
Program kod; Var q, w, e, r, t, y, u, i, x:integer; Begin write (q, w, e, r, t, y, u, i) ; if q=1 then x + (1*2*2*2*2*2*2*2) ; if q=0 then x+0; if w=1 then x + (1*2*2*2*2*2*2) ; if w:=0 then x+0; if e=1 then x + (1*2*2*2*2*2) ; if e=0 then x+0;
Ответы (1)
1. определить значение переменной А после выполнения оператора X:=5; if X>-3 then A:=X mod 2 else A:=abs (X) ; 2. определить значение переменной А после выполнения оператора X:=-26; Y:=6; if X div Y=4 then A:=X mod Y else A:=X*Y; 3.
Ответы (1)
Procedure F (n: integer) ; begin if n < 6 then begin write (n) ; F (n * 2) ; F (n + 2) end; if n < 5 then begin write (n + 1) ; F (n + 2) end end; В паскале пишет (встречен конец файла а ожидалось begin) Как пофиксить?
Ответы (1)
Цикл с параметром и шагом - 1 объявляется с использованием конструкции a) for i:=i1 downto i2 do begin ... end; b) repeat begin ... end until (выражение_условие) ; c) for i:=i1 to i2 do begin ... end; d) if (выражение_условие) begin ...
Ответы (1)
Помогите найти ошибку (Информатика, Паскаль). var s, k, a:integer; Begin s:=0; k:=0; Read (a) ; while a0 do Begin if a mod 8=0 then Begin s:=s+a; k:=k+1; end; Readln (a) ; end; var y:real; begin y: = s/k; Read (s) ;
Ответы (1)