C:\Мои документы\8 класс\Блинов\Реферат.doc
C:\Мои документы\8 класс\Мальцев\Рисунки\Эскиз.bmp
C:\Фильмы\Сумерки.avi
Var i:Integer;
A:array[1..10] of Integer ;
Begin
For i:=1 to 10 do begin
A[i]:=random(26)-5;
Write(A[i], ' ') ;end;
Writeln;
For i:=1 to 10 do begin
If A[i]<0 then A[i]:=abs(A[i])
Else A[i]:=-A[i];
Write(A[i], ' ') end;
End.
Ответ единица. :)
Пояснения или решение нужны?
var
a: integer;
begin
{1}
readln(a);
if a > 0 then a := a + 1;
writeln(a);
{2}
readln(a);
if a < 0 then a := a * 2;
writeln(a);
{3}
readln(a);
if a <> 0 then a := a - 4;
writeln(a);
{4}
readln(a);
if a > 0 then a := a + 1
else a := a - 1;
writeln(a);
{5}
readln(a);
if a = 0 then a := a + 3
else a := 0;
writeln(a);
end.
{6}
var
x, y: real;
begin
readln(x, y);
if x > y then x := x * y
else x := x + y;
writeln(x);
end.
ШУМ-ГАМ
ЖАРА-ТЕПЛО
БЕДА-ГОРЕ
МОРОЗ-ХОЛОД
ПУРГА-МЕТЕЛЬ
ГРУСТЬ-ТОСКА
ПРОЧНЫЙ-КРЕПКИЙ
ПРОСИТЬ-МОЛИТЬ
СМЕЯТЬСЯ-ХОХОТАТЬ
НЕБОЛЬШОЙ-МАЛЕНЬКИЙ
БАЛОВАТЬСЯ-ШАЛИТЬ
ДОДУМАТЬ-ДОДЕЛАТЬ