Ребят занятие через 30 мин ( паскаль)
1.Напишите программу, которая в последовательности целых чисел определяет количество отрицательных чисел и сумму положительных. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести два числа: количество отрицательных чисел и сумму положительных.
2.Напишите программу, которая в последовательности целых чисел определяет максимальное и минимальное число и выводит сумму этих чисел. Программа получает на вход количество чисел в последовательности, а затем сами числа. Количество чисел не превышает 1000, но не может быть меньше 2. Введённые числа по модулю не превышают 30 000. Программа должна вывести одно число — сумму максимального и минимального числа.
Людочка13
1
21.04.2020 15:52
0
Другие вопросы по теме Информатика
Абдулjazair
24.12.2020 15:23
fanfa
11.03.2019 15:24
skuryan
11.03.2019 15:22
Kaka2764
11.03.2019 15:19
00110100101
11.03.2019 15:19
saraikina122
24.10.2020 14:03
missliss05
24.10.2020 14:04
samorukov2005
14.09.2019 13:00
elenatolmachev
20.06.2019 12:39
санеке
20.06.2019 12:42
Популярные вопросы
- ответьте на во очень Какова роль приёма гиперболизации в описании...
2 - Нетрадиционный забор воды из Аральского моря последствия...
3 - Множитель 6 8 Множитель 4 Произведение...
2 - 2-тапсырма. «Бізді қоршаған әлем. Қазақ отбасы және отбасылық...
1 - 1)Какие из этих пар: (3;0).(4;-2).(5;-2).(-1;8) являются решением...
1 - Отметь верные суждения (возможно несколько вариантов ответа)....
3 - По параграфу 23 приготовьте письменные ответы на во Перечислите...
1 - 2. Выполните умножениеа) (2a+b)(2a-b)б) (4х+1) (16x²-4х+1)...
2 - Сотваь свой диалог с космонавтом, записывая каждую реплику С новой...
2 - Сұлба және санды мәліметтер бойынша есепқұрастыр.8 алма3 есе артық—...
3
Задача 1:
var a,s1,s2: integer;
begin
s1:=0;
s2:=0;
repeat
readln(a);
if (a<0) then s1:=s1+1
else if (a>0) then s2:=s2+a;
until (a=0);
writeln('Количество отрицательных: ',s1);
writeln('Сумма положительных: ',s2);
end.
Задача 2:
var a,i,n,min,max: integer;
begin
write('Введите кол-во чисел в последовательности: ');
readln(n);
write('Введите ',1,' число: ');
readln(a);
max:=n;
min:=n;
for i:=2 to n do
begin
write('Введите ',i,' число: ');
readln(a);
if (a>max) then max:=a;
if (a<min) then min:=a;
end;
writeln('Минимальное число: ',min);
writeln('Максимальное число: ',max);
writeln('Их сумма: ',min+max);
end.