Var
k, m, num: integer;
Dat: array[1..10] of integer;
Begin
Dat[1] := -7; Dat[2] := -8;
Dat[3] := 3; Dat[4] := 6;
Dat[5] := -4; Dat[6] := 3;
Dat[7] := 5; Dat[8] := 5;
Dat[9] := 7;Dat[10] := 1;
num:=1;
m := Dat[1];
for k := 2 to 10 do
if Dat [ k] *m< 0 then
begin
m := Dat[k];
num:= k
end;
writeln(m);
End.
Ответ
3
Ну...Вообще компьютер изначально был создан для хранения, обработки информации, но не для этого...Ну ладно, ближе к теме...
Я думаю, что интернет был создан для получения более объёмной информации. Короче напиши, что то вроде этого:
Для получения информации ( описываешь какую), затем пишешь: для отправки sms/mms ну и т.д..
Удачи)
Ответ номер два, так как принтер выводит информацию с компьютера