1.Сгенерировать 10 чисел от 0 до 20, вывести их ** экран, найти сумму тех чисел, которые...

Question

1.Сгенерировать 10 чисел от 0 до 20, вывести их на экран, найти сумму тех чисел, которые умножаются на 3 без остатка
2.Сгенерировать 10 чисел k:random (10)-10; подсчитать сумму только отрицательных чисел, если таких чисел нет, то вывести сообщение: нет отрицательных чисел

В Паскале написать задачки, очень очень срочно нужно

Comments

которые умножаются на 3 без остатка, не делятся ?

---

вроде бы

---

Условие не правильное

---

ну а что со второй задачкой?

---

Ну не знаю, я условие подправил, в первом которые делятся на 3, а во втором не (10)-10, а (20)-10

---

ну а теперь они решаемые?

---

Да, всё, задачи готовые

---

вы можете мне их решить?

---

спасибо большое

Answer 1

1)
Program asd;
USES crt;
Const n=10;
Var A:array[1..n] of integer;
i,kp,s:integer;
BEGIN
Writeln('Массив: ');
For i:=1 to n do 
begin 
A[i]:=Random(20); 
Write(A[i]:4); 
end; 
Writeln;
For i:=1 to n do
 begin 
If A[i] mod 3=0 then
s:=s+1; 
end; 
Writeln('Сумма: ' ,s);
END.

2)
Program asd;
USES crt;
Const n=10;
Var A:array[1..n] of integer;
i,kp,s:integer;
BEGIN
Writeln('Массив: ');
For i:=1 to n do 
begin 
A[i]:=Random(20)-10; 
Write(A[i]:4); 
end;  
Writeln;
For i:=1 to n do 
begin   
If A[i]<0 then s:=s+1;<br> end; 
If s=0 then Writeln('Нет отр. элементов!');
 Writeln('Сумма отр. элементов: ' ,s);
END.