Ответ: k будет равно 5.
По условию, если а>0, то k присвоить значение 1, иначе присвоить значение 0, а затем прибавить 5. Перед условием указано, что а=-25, т.е. <0, значит идём по условию "иначе".
Begin
var a:=ReadArrInteger('Введите 10 чисел:',10);
var m:=a.Where(x->x<a.Max).Max;
writeln('Второй максимум = ',m);
end.
Пример:
Введите 10 чисел:
5
44
80
1
8
100
1
90
2
6
Второй максимум = 90
1) Дано четырехзначное число.
- Вывести 1, если сумма его цифр является трехзначным числом, 0 иначе.
- Вывести 1, если произведение его цифр является трехзначным числом, 0 иначе.
- Вывести 1, если сумма его цифр кратна трем, 0 иначе.
- Вывести 1, если произведение его цифр кратно четырем, 0 иначе.
2) Дано трехзначное число.
- Вывести 1, если все цифры числа одинаковы, 0 иначе.
- Вывести 1, если число оканчивается четной цифрой.
Решения обеих задач на языке С++ даны в приложениях.
Для химии можна нарисовать колбу с чем то
Информатика:компютер
Исторія: книга с пером
Спорт зал спортивное оборудование
Uses crt;
var mas: array [1..1000] of real;
x,k,o,p:integer;
begin
write('K='); readln(K);
o:=0; p:=0;
for x:=1 to K do
begin
write('mas[',x,']:');
readln(mas[x]);
if mas[x]<0 then inc(o);
if mas[x]>0 then inc(p);
end;
writeln;
writeln('Отрицательных элементов: ',o);
writeln('Положительных элементов: ',p);
end.