Question

Не разбираюсь в информатике. Помогите решить. PASCAL ONLY.
Чтобы получить - минимум половина ПРАВИЛЬНО.

Качество фоток хорошее - откройте в полном разрешении

Answer 1

Задача 1 http://pastebin.com/YKs66Jfz
Задача 2 http://pastebin.com/bn8SfvuS
Задача 3 http://pastebin.com/LfTSQk0a
Задача 4 http://pastebin.com/ZPALbnkn
Задача 5 http://pastebin.com/7uWkTAcZ

Answer 2

6-ая
http://pastebin.com/2D7Ejadn

Answer 3

Держи последнюю, буду вопросы, задавай!
http://pastebin.com/79JqtM1h
Удачи!))

Answer 4

Спасибо, хорошо :)

Answer 5

Program Zadacha1;
Var N, i: Integer;
A: Array of Integer;
Begin
ReadLn(N);
If (N < 1) Or (N > 100) Then
WriteLn('Error!')
Else
Begin
SetLength(A, N);
For i := 0 To N - 1 Do
Begin
Read(A[i]);
If Abs(A[i]) > 10000 Then
Begin
WriteLn('Error!');
Break;
End;
End;
For i := 0 To N Do
If i Mod 2 = 0 Then
Write(A[i], ' ');
End;
ReadLn;
End.