File:///C:/Users/1/Downloads/adc3d87a4746d34fe0cf6ba31880cdf6.ppt
const n=27;
var a:array [1..n] of integer;
i:integer;
begin
write(' Исходный массив: ');
for i:=1 to n do
begin
a[i]:=random(26)-10;
write(a[i]:3,' ');
if a[i] mod 2 <> 0 then a[i]:=3
else a[i]:=a[i]-3//уменьшает на 3,т.к. при уменьшении в 3 раза получается тип real, тут или второй массив создавать или взять a[i]:=a[i] div 3 (целочисленное деление)
end;
writeln;
write('Преобразованый массив: ');
for i:=1 to n do write(a[i]:3,' ')
end.
1.
3*(-2+3+2)-9=0
3*(-1+2+1)-6=0 Это подходит
Ответ:3
2.
2*(-6+3+1)+4=0
2*(2+3-2)-6=0 Это подходит
Ответ:4
3. 360:120=3- Это треугольник, так как 3
Ответ:4
4. 360:60=6- Незамкнутая ломаная линия, так как 6 это перебор (Повтори 5)
Ответ: 4
5.
3*(-2+3+2)=9
3*(-1+2+1)=6, так как сказано заменить, то мы просто меняем знаки.
Ответ:(-9;-6)
Program fantscrin;
const n = 100;
Var a: array [1..n] of integer;
i,j,k,s:integer;
Begin
k:=0;
for i:=1 to n do
begin
readln(a[i]);
if (a[i] = 0) then break;
k:=k+1;
end;
for i:=1 to k do
write(a[i], ' ');
for i:=1 to k do
if ((a[i] mod 10 = 3)and(a[i] mod 7 = 0)) then s:=s+a[i];
writeln('');
writeln(s);
End.