Задать вопрос
30 ноября, 21:34

Определить значение переменных 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;

+1
Ответы (1)
  1. 30 ноября, 22:24
    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; ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
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)
Uses crt; var n, s, s1, s2, k:integer; begin writeln ('Введите число: ') ; readln (n) ; s:=0; s1:=0; s2:=0; while n>0 do begin inc (k) ; if k mod 2 = 0 then begin s:=s+n mod 10; n:=n div 10; end else begin s1:=s1+n mod 10; n:=n div 10; end;
Ответы (1)