Question

1.Сгенерировать 10 чисел от 0 до 20, вывести их на экран, найти сумму тех чисел, которые умножаются на 3 без остатка
2.Сгенерировать 10 чисел k:random (10)-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;
 end; 
If s=0 then Writeln('Нет отр. элементов!');
 Writeln('Сумма отр. элементов: ' ,s);
END.