Задан массив из 10 целых чисел. Написать программу которая находт -сумму всех элементов...

Question

Задан массив из 10 целых чисел. Написать программу которая находт
-сумму всех элементов массива
-колличество чётных и нечётных элементов массива

Answer 1

Const n=10;
var a:array[1..n] of integer;
i,s,k1,k2:integer;
begin
writeln('vvedite massiv=');
for i:= 1 to n do 
readln(a[i]);
s:=0;
k1:=0;
k2:=0;
for i:= 1 to n do 
begin 
s:=s+a[i];
if a[i] mod 2=0 then inc(k1) else inc(k2);
end;
writeln('s=',s,' k1=',k1,' k2=',k2);
readln;
end.

Comments

Да я и не обижался=))

---

for i:= 1 to n do
s:=s+a[i];
if a[i] mod 2=0 then inc(k1) else inc(k2);

должно быть:

for i:= 1 to n do
Begin
s:=s+a[i];
if a[i] mod 2=0 then inc(k1) else inc(k2);
End;

---

+ i не объявлена

---

Ну ты же количество чётных чисел в том же цикле проверяешь

---

=)))