Program zad1;
const N = 6;
var a: array[1..N] of integer;
i: byte;
b: integer;
begin
for i:=1 to N do
read(a[i]);
for i:=1 to N div 2 do
begin b := a[i];
a[i] := a[N-i+1];
a[N-i+1] := b;
end;
for i:=1 to N do
write(a[i],' ');
writeln;
end.
<span>// PascalABC.NET 3.3
// Cборка 1590 от 03.12.2017</span>
begin
var x:=ArrRandom(ReadInteger('Введите размер массива->'),-5,5); x.Println;
var y:=x.Select(t->t<0?abs(t):t); y.Println;
Println('Произведение:',x.Where(t->t<>0).Aggregate((a,b)->a*b));
end.
Пример:
Введите размер массива-> 10
1 2 -1 2 4 4 1 1 -3 2
1 2 1 2 4 4 1 1 3 2
Произведение: 384
Var n,h,m,s:integer;
begin
write('n = ');
readln(n);
h:=n div (60*60);
m:=n mod (60*60) div 60;
s:=n mod 60;
write(h,':');
if m<10 then write(0);
write(m,':');
if s<10 then write(0);
writeln(s);
end.
Пример 1:
n = 86399
23:59:59
Пример 2:
n = 18125
5:02:05
График Скорость Время
а 200км/ч 30 минут
b 100км/ч 1 час
c 25 км/ч 4 часа
d 16,66 км/ч 6 часов
е 5км/ч 6 часов