Пожалуйста распишите задачу 1 и 3 полностью для Паскаля абс. Умоляю, полностью!! Буду очень благодарна, тк у меня спорная

1

Ответы и объяснения

Лучший Ответ!
2013-12-25T19:56:21+00:00
№1
uses crt;
var x: integer;
begin
clrscr;
readln (x);
if x mod(2)=0 then
writeln ('true')
else
writeln ('false');
readln ();
end.

№3
uses crt;
var arr: array [1..10] of integer; i,x: integer;
begin
clrscr;
for i:=1 to 10 do
readln (arr[i]);
x:=0;
for i:=1 to 10 do
if x<=arr[i] then
x:=arr[i];
writeln ('Max: ',x);
end.
Можешь отметить как лучшее? Пжлст