Массив с выводом колличества четных и нечетных чисел их сумм а также записью в один текстовый файл и перезаписью в другой

@Pedroni · Регистрация: 13.06.2013

@ermolay · 15.06.2013, 10:22

а в файлы записывать только массивы? если да - то так:

Pascal

var
  a: array[1..100] of integer;
  n,i,k1,k2,s1,s2,m: integer;
  f1,f2: text;
begin
  write('Ââåäèòå ðàçìåð ìàññèâà n: N=');
  readln(n);
  assign(f1,'1.txt');
  rewrite(f1);
  for i:=1 to n do
  begin
    a[i]:=random(99)+1;
    if odd(a[i]) then
    begin
      inc(k1);
      s1:=s1+a[i];
    end else
    begin
      inc(k2);
      s2:=s2+a[i];
    end;
    write(a[i]:4);
    write(f1,a[i]:4);
  end;
  close(f1);
 
  assign(f2,'2.txt');
  rewrite(f2);
  reset(f1);
  while not eoln(f1) do
  begin
    read(f1,m);
    write(f2,m:4);
  end;
  writeln;
  close(f1);
  close(f2);
  writeln('Êîëè÷åñòâî íå÷åòíûõ = ',k1,', èõ ñóììà = ',s1);
  writeln('Êîëè÷åñòâî ÷åòíûõ = ',k2,', èõ ñóììà = ',s2);
  writeln;
end.

@Pedroni 0 / 0 / 0 Регистрация: 13.06.2013 Сообщений: 6
		1
	Массив с выводом колличества четных и нечетных чисел их сумм а также записью в один текстовый файл и перезаписью в другой 14.06.2013, 07:40. Показов 1100. Ответов 1 Метки нет (Все метки) Массив с выводом колличества четных и нечетных чисел их сумм а также записью в один текстовый файл и перезаписью в другой 0

Опции темы

Массив с выводом колличества четных и нечетных чисел их сумм а также записью в один текстовый файл и перезаписью в другой

Решение