Готовое решение задачи Паскаль. Решения Pascal. Задачи паскаль. Задачи pascal

Условие Задачи:

Дана последовательность натуральных чисел A[j] (длина последовательности заранее не известна, использовать функцию SeekEoLn или SeekEoF). Найти сумму чисел, не делящихся на 2 и 11, наибольшее из таких чисел и номер этого числа в последовательности.
Блок схема

Просмотров: 235
Объяснение: -
Отзывов: 0

РЕШЕНИЕ:

program PascalGuru; uses crt; var A:array[1..100] of integer; i,j,summa,n,k,code,max,maxi:integer; s:string; f:text; {--------------------------------------------} begin assign(f,'f.txt'); reset(f); summa:=0; i:=0; j:=0; while not eof(f) do begin inc(i); readln(f,s); {writeln(s); } val(s,k,code); if (k mod 2<>0) and (k mod 11<>0) then begin inc(j); if j=1 then begin max:=k; maxi:=i; end else if k>max then begin max:=k; maxi:=i; end; summa:=summa+k; end; end; writeln ('Summa: ',summa); writeln ('MAX: ',max); writeln ('MAX[i]-"nomer": ',maxi); close(f); readln; end.
нажми на эту область и скопируй решение


	© 2008 - 2012 Pascal, Паскаль, Турбо Паскаль, Turbo pascal.