Program n1;
Uses CRT;
Const n=5;
Var x: array[1..n,1..n] of integer;
a: array[1..n] of integer;
i,p,s,j: integer;
begin
ClrScr;
Randomize;
For i:=1 to n do
For j:=1 to n do
x[i,j]:=random(100);
j:=1;
Repeat
For i:=1 to n do
If a[j]<x[i,j] then a[j]:=x[i,j];
write(a[j]:4);
j:=j+1;
Until j=n+1;
p:=1;
writeln;
For i:=1 to n do
If i mod 2=0 then s:=s+a[i]
else p:=p*a[i];
writeln('Proizvedenie =',p,',Summa =',s);
readln
end.
Известно несколько способов решения данной задачи. Один из вариантов: МУХА-МУРА-ТУРА-ТАРА-ПАРА-ПАРК-ПАУК-ПАУТ-ПЛУТ-ПЛОТ-СЛОТ-СЛОН
1) создание, подготовка к работе, а так же определение параметров функции
2) a) нет возвращаемого значения, то есть функция что-то делает, но не возвращает ничего
б) возвращает то значение, которое вы скажете вернуть, можно использовать данный тип функции, как переменную, например, функция возвращает принятое число в случае, если это число больше нуля, -1, если меьше нуля. Таким образом можно использовать ее в любых конструкция, к примеру, условных.
если function()>0 то вывести число иначе вывести "отрицательное"
1)
<span>8730 bit/s
</span>715860*8=5726880 bit
5726880 bit / 8730 bit/s = 656 sec
2)
695Kb * 1024 = 711680 byte
711680*8=5693440
(11*60)+35 = 695 s
5693440 bit / 695 s = 8192 bit/s
3)
3550Kb * 1024 = 3635200 byte
3635200 * 8 = 29081600 bit
(11*60)+50 = 710 s
29081600 / 710 = 40960 bit/s
Program Timer;
Uses Crt;
var i:longint;
begin
write('Введите прмежуток времени в секундах:');
readln(i);
Delay(i*1000);
Sound(440); {нота Ля}
Delay(2000);{в течении 2 секунд}
NoSound;
write('Нажмите любую клавишу для выхода:');
readkey;
end.