1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
var
a:array[1..100]of integer;
i,n:integer;
begin
writeln('skolko elementov?');
readln(n);
randomize;
for i:=1 to n do begin
a[i]:=random(100);
write(a[i]:3);
end;
writeln;
for i:=n downto 1 do
write(a[i]:3);
end.
N=int(input())
count=0
minimum=30001
maximum=-30001
for i in range(N):
(отступ) x=int(input())
if x%2==0:
count+=1
if x>maximum:
maximum=x
if x<minimum:
minimum=x
print(maximum)
print(minimum)
Надеюсь, помогла))) удачи!!))
Программа написана на языке программирования Python
_________
Пожалуйста, поставь ответ лучшим) я старалась, а тебе просто нажать)))
Var
B,X:real;
Begin
Write('B = ');ReadLn(B);
Write('X = ');ReadLn(X);
Write('Итоговая стоимость = ',X*B*0.8,' руб.')
End.
информация хранится во внешней памяти и обозначения именем - файл
//PascalABC.NET
//Версия 3.3, сборка 1634
begin
write('массив: ');
var a:=ArrRandom(15,-100,100).Println;
write('кол-во элементов <10: ',a.Where(x->x<10).Count);
end.