- program task31101446;
- var
- arr: array of integer;
- Sum, n, number: integer;
- begin
- Writeln('СКОЛЬКО ЧИСЕЛ? (n): ');
- Readln(n);
- SetLength(arr, n);
- Writeln(Chr(10), '2 И 4 ЗАДАНИЯ');
- for var i := 0 to (n-1) do
- begin
- Read(arr[i]);
- Sum := Sum + arr[i];
- if arr[i] mod 2 = 0 then
- Writeln('ЧЁТНОЕ ЧИСЛО - ', arr[i]);
- end;
- Writeln(Chr(10), '3 ЗАДАНИЕ');
- for var i := 0 to (n-1) do
- if i mod 2 = 0 then
- Writeln(arr[i], ' СТОИТ НА ', i, ' МЕСТЕ');
- Writeln(Chr(10), '1 ЗАДАНИЕ');
- while n <> 0 do
- begin
- Writeln(arr[(n-1)]);
- Dec(n);
- end;
- end.
Не хотел плодить программы, поэтому всё совместил в одной. Задания идут не по порядку.