помогите решить задачи завтра квалификационный экзамен

[Виталий12132112]

1. Напишите программу вычисления среднего арифметического содержащихся в операторе data следующих десяти чисел: 31, 19, 52, 65, 6, 8, 13, 16, 97, 33.

2.В массиве содержатся 10 букв – С, Ф, О, И, К, Л, О, И, Л, Н. Выведите на экран слово, образованное буквами с четными индексами, и слово, образованное буквами с нечетными индексами.

3.Найдите максимальный и минимальный элементы массива из 10 случайных целых двузначных чисел и разность между ними. Представьте графическую столбиковую интерпретацию этого массива, выделив максимальный элемент красным, а минимальный – зеленым цветом. Остальные прямоугольники должны быть желтого цвета.

[type_Oleg]

Сообщение от Виталий12132112

.. содержащихся в операторе data следующих десяти чисел

Где, где ...
У вас точно Pascal ?

[Виталий12132112]

это задачи для pascal ABC

[ZX Spectrum-128]

Сообщение от Виталий12132112

это задачи для pascal ABC

Нет там такого оператора.

[McFrey]

Для затравки)...

const 
mas: array [1..10] of char = ('С', 'Ф', 'О', 'И', 'К', 'Л', 'О', 'И', 'Л', 'Н'); 
var 
i: byte; 
begin
ClrScr; 
Writeln ('Слово образованное четными буквами:'); 
For i:=1 to 10 do 
if i mod 2 = 0 then Write (mas[i]); 
WriteLn; 
Writeln ('Слово образованное нечетными буквами:'); 
For i:=1 to 10 do 
if i mod 2 <> 0 then Write (mas[i]); 
ReadKey; 
end.