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.