ПРОГРАМА З ВИКОРИСТАННЯМ ФАЙЛОВОГО ТИПУ ДАНИХ

[V1rus.25]

Скласти програму обчислення величини "Cуми елементів масиву А, значення яких кратні 4" з використанням файлів для введення-виведення даних.:confused :

[whatever]

type
  vector=array[1..20] of integer;
var
  T:file of integer;
  i,count:integer;
  A:vector;
begin
  assignfile(T,'C:\input.dat');
  reset(T);
  i:=1;
  count:=0;
  while not(EOF(T)) do
    begin
      read(T,A[i]);
      if (a[i] mod 4=0) then
        count:=count+a[i];
      inc(i);
    end;
  writeln('Summe der Elemente sind Vielfache von vier: ',count);
  closefile(T);
  assignfile(T,'C:\output.dat');
  rewrite(T);
  write(T,count);
  closefile(T);
  readln;
end.

P.S. Abschiedsworte für die Zukunft. Schreiben Sie in Russisch, weil nicht verstehe alles.

P.P.S. Убрал бы ты подпись "Профессионал" из под ника, а то что-то не верится.

[V1rus.25]

А повністю як?

[Вадим Мошев]

Сообщение от V1rus.25

А повністю як?

I think this programm was written complete. Till the end...

V1rus.25 You were asked to write in russian...

[V1rus.25]

А полностью как?

[TinMan]

Сообщение от V1rus.25

А полностью как?

Що тут по-своєму не повністю?

P.S. google rules!! ))