Одномерный масив ( оч нужно до завтра( 11-13:00))

[senspwnz]

Дано одновимірний масив Z[10]. Скласти блок-схему і програму для обчислення D=A+B+C, де А – сума тих елементів одновимірного масиву, які діляться на 9, В – сума максимального та мінімального елементів масиву, С – сума тих елементів масиву порядкові номери, яких непарні числа. Організувати ввод елементів масиву з файлу, результат вивести в файл

- украинский вариант
Дан одномерный масив Z[10]. Здаелать блок-схему и програму для обчисления D=A+B+C, где А - сума тех елементов одномерного масива , каторые делятся на 9, В - сумя максимального та минимального елементав масива , С - сума тех елементав масива порядковые номера , которых не парные числа.Огранизовать ввод елементов масива из файла, результат вывисти в файл

[Mad_Cat]

Возможно так: (Только я задание С не понял))) )

норм перевод:

С - сумма тех элементов массива порядковые номера , которых нечетные числа

[domovou]

Возможно так:

const
     n=10;
type
    mas=array [1..n] of integer;
    fil=file of integer;
var
   f1,f2:fil;
   z:mas;

   k,i,a,b,c,d,max,min:integer;
BEGIN
assign(f1,'01.bat');
rewrite(f1);
a:=0;
max:=0;
min:=0;
for i:=1 to n do
    begin
    z[i]:=random(100);
    write(f1,z[i]);
    if z[i] mod 9=0 then
       a:=a+z[i];
    if z[i]>max then max:=z[i];
    if z[i]<min then min:=z[i];
    end;
b:=max+min;
c:=0;
for i:=1 to n do
    if i mod 2<>0 then c:=c+z[i];
reset(f1);
while not eof(f1) do
      begin
      read(f1,k);
      write(k:3);
      end;
close(f1);
assign(f2,'02.bat');
rewrite(f2);
write(f2,a+b+c);
reset(f2);
read(f2,k);
writeln(#13,k);
close(f2);
readln;
END.

Mad_Cat, Спасибо!