Задача на массив. Считать данные из файла, произвести операции, результат записать в новый файл

@ProFiTM · Регистрация: 28.10.2011

Author24 — интернет-сервис помощи студентам

Имеется файл, в котором содержится размерность массива и его элементы. (произвольный, можно Ваш)
Вычислить:
1) Номер минимального элемента массива
2) Сумму элементов массива, расположенных между первым и вторым отрицательными элементами
Результат записать в новый файл (rez.txt)

@CodeR · 05.04.2014, 14:01

Pascal

Var f,g:text;
    A:array[1..100] of integer;
    i,n,imin,s,nk,kk:integer;
Begin
    Assign(f,'in.txt');Reset(f);
    Assign(g,'res.txt');Rewrite(g);
    read(f,n);
    For i:=1 to n do
    Begin
      read(f,A[i]);
      write(A[i]:4);
    End;
    imin:=1;
    For i:=2 to n do
     if A[i]<A[imin] then imin:=i;
    writeln(g,'Номер минимального = ',imin);
    For i:=1 to n do
     if (A[i]<0)and(nk=0) then nk:=i
      else if (A[i]<0)and(nk<>0)and(kk=0) then kk:=i;
    For i:=nk+1 to kk-1 do
     s:=s+A[i];
    if (nk=0) then writeln(g,'Нету отрицательных')
     else if kk=0 then writeln(g,'Нету второго отрицательного')
      else writeln(g,'Сумма = ',s);
    writeln;
    writeln('Результат в файле "res.txt"');
    Close(f);Close(g);
    readln;
End.

@ProFiTM 2 / 2 / 1 Регистрация: 28.10.2011 Сообщений: 35
		1
	Задача на массив. Считать данные из файла, произвести операции, результат записать в новый файл 04.04.2014, 22:06. Показов 2071. Ответов 1 Метки нет (Все метки) Имеется файл, в котором содержится размерность массива и его элементы. (произвольный, можно Ваш) Вычислить: 1) Номер минимального элемента массива 2) Сумму элементов массива, расположенных между первым и вторым отрицательными элементами Результат записать в новый файл (rez.txt) 0

	05.04.2014, 14:01

Задача на массив. Считать данные из файла, произвести операции, результат записать в новый файл

Решение