1.Сгенерировать 10 чисел от 0 до 20, вывести их на экран,
1.Сгенерировать 10 чисел от 0 до 20, вывести их на экран, отыскать сумму тех чисел, которые умножаются на 3 без остатка
2.Сгенерировать 10 чисел k:random (10)-10; подсчитать сумму только отрицательных чисел, если таких чисел нет, то вывести извещение: нет отрицательных чисел
В Паскале написать задачи, очень очень срочно необходимо
Nikita Tarlovskij
которые множатся на 3 без остатка, не делятся ?
Юлия Сонивник
вроде бы
Владислав Вяземскин
Условие не правильное
Алёна Лерри
ну а что со 2-ой задачкой?
Витька Лопотин
Ну не знаю, я условие подправил, в первом которые делятся на 3, а во втором не (10)-10, а (20)-10
Виталя Справников
ну а сейчас они решаемые?
Rakchaeva Arina
Да, всё, задачки готовые
Паша Дихтенко
вы сможете мне их решить?
Иван Бывальд
спасибо огромное
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]lt;0 then s:=s+1;
end;
If s=0 then Writeln('Нет отр. частей!');
Writeln('Сумма отр. частей: ' ,s);
END.
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]lt;0 then s:=s+1;
end;
If s=0 then Writeln('Нет отр. частей!');
Writeln('Сумма отр. частей: ' ,s);
END.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Газообразный аммиак объёмом 2.24 л (н.у.) был полностью поглощён 14.68 мл
Химия.
Упражнение 2 Выпишите глаголы и вставьте пропущенные буквы
Русский язык.
Радиус окружности, описанной около равностороннего треугольника, равен 6. Найдите сторону треугольника
Геометрия.
Вычислите силу с которой при давлении 100 КПа атмосфера давит на
Физика.
Синтаксический разбор и схема Но мы сказали, что нам ничего не
Русский язык.
Массовая доля целлюлозы в древесине составляет 50%. Какая масса спирта может
Химия.
помоги мне пожалуста прш
869*(61124-488*125)-50974
Математика.
по шкале высот определить ,в каком направлении происходит понижение релефа уральских гор
География.
Помогите пожалуйста написать Сочинение Овчинникова "победитель'
Литература.
Здравствуйте. Нужен цитатный план испытания лётчика в лесу главы2-13 по повести
Разные вопросы.
Облако тегов