1.Сгенерировать 10 чисел от 0 до 20, вывести их на экран, найти сумму тех чисел, которые умножаются на 3 без остатка 2.Сгенерировать 10 чисел k:random (10)-10; подсчитать сумму только отрицательных чисел, если таких чисел нет, ...
1.Сгенерировать 10 чисел от 0 до 20, вывести их на экран, найти сумму тех чисел, которые умножаются на 3 без остатка
2.Сгенерировать 10 чисел k:random (10)-10; подсчитать сумму только отрицательных чисел, если таких чисел нет, то вывести сообщение: нет отрицательных чисел
В Паскале написать задачки, очень очень срочно нужно
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы