Кенгуру находится на координатной оси ох в точке 0. ему надо попасть в точку х. вам дано n чисел - длины его прыжков. кенгуру может прыгать, как вправо так и влево. выведите yes, если он может попасть в точку х, иначе no; первая строка входных данных содержит число n — количество возможных длин прыжков кенгуру (1 ⩽ n ⩽ 10^4) во второй строке входных данных записано n чисел a[i] через пробел — длины прыжка кенгуру (1 ⩽ ai ⩽ 2 · 10^9). в третьей строке записано целое число x — точка, в которую нужно попасть кенгуру (1 ⩽ x ⩽ 2 · 10^9). формат выходных данных программа должна вывести «yes», если кенгуру может попасть в точку x, или «no» в противном случае. примеры: 1) ввод: 2 3 4 2 вывод: yes 2) ввод: 1 2 3 вывод: no
uses crt;
const
n=10;
Var
s:string;
fly:text;
a: array [1..n,1..n] of integer;
i,j,k,summa: integer;
begin
S:='*** Alphaeus is thinking... ***';
for i:=1 to length(s) do begin
write(s[i]);
for j:=1 to 500000 do s[i]:=s[i];
end;
writeln(); writeln('*** OK ***');
writeln(); writeln('Задача:');
writeln('Сформировать квадратную матрицу A(NxN), которую вывести. Строки с отрицательным элементом на главной диагонали последовательно записать в файл. В конец файла дописать сумму первой и последней компонент, файл отпечатать.');
randomize;
assign(fly,'F.txt');
rewrite(fly);
{заполняем и выводим матрицу}
writeln(); writeln('Matrix:');
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=Random(101)-50;
write (a[i,j]:3);
end;
writeln();
end;
writeln();writeln();
{заполняем файл}
for i:=1 to n do begin
for j:=1 to n do begin
if(i=j) and (a[i,j]<0) then
begin
for k:=1 to n do
write(fly,a[i,k]:3);
writeln(fly, ' ');
end;
end;
end;
writeln();
writeln('File:');
summa:=a[1,1]+a[n,n];
writeln(fly,'Summa = ',summa);
s:='';
{выводим файл}
reset(fly);
while not eof (fly) do
begin
readln (fly, s);
writeln(s);
end;
close(fly);
end.