Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

066536 / 391

.txt
Скачиваний:
31
Добавлен:
09.06.2015
Размер:
779 б
Скачать
program task391;
uses
Crt;
const
nmax=100;
var
A:array [1..2,1..nmax] of integer;
n,i,j,max,sum:integer;
begin
ClrScr; {®зЁбвЄ  нЄа ­ }
write('‚ўҐ¤ЁвҐ ­ вга «м­®Ґ зЁб«® n = ');
readln(n);
n:=abs(n); {§ йЁв  ®в ўў®¤  ®ваЁж вҐ«м­ле зЁбҐ«}
if (n>nmax) then n:=nmax;
writeln('‚ўҐ¤ЁвҐ §­ зҐ­Ёп ¬ ваЁжл 2 x ',n,':');
for i:=1 to 2 do begin {ўў®¤ §­ зҐ­Ё© ¬ ббЁў }
for j:=1 to n do begin
read(A[i,j]);
end;
readln;
end;
max:=A[1,1];
for j:=2 to n do {Ї®ЁбЄ ¬ ЄбЁ¬г¬ }
if A[1,j]>max then max:=A[1,j];
sum:=0;
for j:=1 to n do {ўлзЁб«Ґ­ЁҐ б㬬л}
if A[1,j]=max then begin
sum:=sum+A[2,j];
end;
writeln('Sum = ',sum);
write('„«п ўл室  ­ ¦¬ЁвҐ «оЎго Є« ўЁиг ...');
readkey;
end.
Соседние файлы в папке 066536