Не разбираюсь в информатике. Помогите решить. PASCAL ONLY.
Чтобы получить - минимум половина ПРАВИЛЬНО.
Качество фоток хорошее - откройте в полном разрешении
Чтобы получить - минимум половина ПРАВИЛЬНО.
Качество фоток хорошее - откройте в полном разрешении
Answers & Comments
Задача 2 http://pastebin.com/bn8SfvuS
Задача 3 http://pastebin.com/LfTSQk0a
Задача 4 http://pastebin.com/ZPALbnkn
Задача 5 http://pastebin.com/7uWkTAcZ
http://pastebin.com/6juLay1W
http://pastebin.com/2D7Ejadn
http://pastebin.com/79JqtM1h
Удачи!))
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.