write('среднее арифметическое элементов массива=',z/n); writeln;
writeln('array b=');
for i: =1 to n do
begin
if (i mod 3 = 0) then b[i]: =0 else b[i]: =a[i];
write(b[i],' ');
if (i mod 10 =0) then writeln;
end; writeln; writeln('array a + array b=');
for i: =1 to n do
begin
c[i]: =a[i]+b[i];
write(c[i],' ');
if (i mod 10 =0) then writeln;
end;
end.
Larisa-Andrei
05.03.2021
X=0 n=100 while n< 1000: if str(n)[: 1]==str(n)[-1] and n%3==0: x+=n n+=1 print(x) результат выполнения программы: python 3.4.2 (v3.4.2: ab2c023a9432, oct 6 2014, 22: 15: 05) [msc v.1600 32 bit (intel)] on win32 type "copyright", "credits" or "license()" for more information. > > > ================================ restart ================================ > > > 16803 > > >
var a,b,c: array[1..100] of integer;
i,n: integer; z: real;
begin
n: =random(10)+90;
writeln('n=',n);
writeln('array a=');
for i: =1 to n do
begin
a[i]: =random(300);
z: =z+a[i];
write(a[i],' ');
if (i mod 10 =0) then writeln;
end;
writeln;
write('среднее арифметическое элементов массива=',z/n); writeln;
writeln('array b=');
for i: =1 to n do
begin
if (i mod 3 = 0) then b[i]: =0 else b[i]: =a[i];
write(b[i],' ');
if (i mod 10 =0) then writeln;
end; writeln; writeln('array a + array b=');
for i: =1 to n do
begin
c[i]: =a[i]+b[i];
write(c[i],' ');
if (i mod 10 =0) then writeln;
end;
end.