1)Составить массив из 10 целых чисел ,вывести его ** экран и подсчитать количество...

Question

1)Составить массив из 10 целых чисел ,вывести его на экран и подсчитать количество элементов массива ,значения которых не превышают трех
2) Составить массив из 10 целых чисел и вывести его на экран ,подсчитать сумму отрицательных и положительных чисел в массиве .

Comments

без указания чёткого языка никто не сделает. Сдавать то не программу, а код!.

Answer 1

Решение для данных задач ниже

Comments

Первая задача

---

-----------------------

---

program HelloWorld;

var

mas : array [1..10] of integer;
count, i : integer;

begin

count:=0;

for i:=1 to 10 do
begin
read(mas[i]);
if mas[i]<4 then count:=count+1;<br> writeln('a[',i,'] = ',mas[i]);
end;

write('Количество элементов, не превышающих 3 - ',count);

end.

---

---------------------------

---

Вторая задача

---

--------------------------------

---

program HelloWorld;

var

mas : array [1..10] of integer;
sumNeg, sumPos, i : integer;

begin

sumNeg:=0;
sumPos:=0;

for i:=1 to 10 do
begin
read(mas[i]);
if mas[i]<0 then sumNeg:=sumNeg+mas[i] else sumPos:=sumPos+mas[i];<br> writeln('a[',i,'] = ',mas[i]);
end;

writeln('Сумма отрицательных - ',sumNeg);
writeln('Сумма положительных - ',sumPos);
end.