BekturMagometovich189
?>

«A»: Напишите программу на языке Python, которая получает натуральные числа A и B (A Пример: Введите границы диапазона: 10 20 11 13 17 19

Информатика

Ответы

bhg50
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.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

«A»: Напишите программу на языке Python, которая получает натуральные числа A и B (A Пример: Введите границы диапазона: 10 20 11 13 17 19
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Хромов1501
Komarovsergeysk
Ruslan374
tol1974656
daarisgoy
Shelchkowa453
myudanova631
pavlovm8316
Yurevna419
Test Станислав
Fedoseeva
kondrashovalf6404
billl24
Самохвалова-Геннадьевна
ВасилийМалюга152