import array
a = array.array ('i',[])
import random
_summ = _elem = 0
_len = int (input ("Lenght: "))
for l in range(_len):
a.append(random.randrange(0,700))
if a[l] < 50:
_summ+=a[l]
_elem+=1
print ("Summ: ", _summ)
if _elem != 0:
print("Average: ", _summ/_elem)
else:
print("Average: 0!")
print("Mass: ", a)
Результат работы:
Lenght: 20
Summ: 7
Average: 7.0
Mass: array('i', [266, 89, 7, 407, 506, 130, 630, 362, 419, 82, 639, 619, 695, 383, 685, 477, 368, 81, 62, 199])
Lenght: 5
Summ: 18
Average: 18.0
Mass: array('i', [486, 170, 18, 183, 307])
Pascal
const
n=6;
var
a, b :array[0..n-1] of integer;
i :integer;
begin
for i:=0 to n-1 do begin
write('Введите a[', i+1, '] :');
readln(a[i]);
end;
writeln();
writeln('Увеличиваем каждый элемент в 2 раза');
for i :=0 to n-1 do begin
b[i]:= 2*a[i];
write(b[i], ' ');
writeln('Увеличиваем на 5 все элементы проме 1-го и последнего');
if (i=0) or (i=n-1) then
b[i]:= a[i]
else
b[i]:= a[i] +5;
writeln('Первую половину массива увеличиваем на 1, вторую в 2 раза');
if i < n div 2 then
b[i]:= a[i]+1
b[i]:= 2 * a[i];
end.
import array
a = array.array ('i',[])
import random
_summ = _elem = 0
_len = int (input ("Lenght: "))
for l in range(_len):
a.append(random.randrange(0,700))
if a[l] < 50:
_summ+=a[l]
_elem+=1
print ("Summ: ", _summ)
if _elem != 0:
print("Average: ", _summ/_elem)
else:
print("Average: 0!")
print("Mass: ", a)
Результат работы:
Lenght: 20
Summ: 7
Average: 7.0
Mass: array('i', [266, 89, 7, 407, 506, 130, 630, 362, 419, 82, 639, 619, 695, 383, 685, 477, 368, 81, 62, 199])
Lenght: 5
Summ: 18
Average: 18.0
Mass: array('i', [486, 170, 18, 183, 307])
Pascal
const
n=6;
var
a, b :array[0..n-1] of integer;
i :integer;
begin
for i:=0 to n-1 do begin
write('Введите a[', i+1, '] :');
readln(a[i]);
end;
writeln();
writeln('Увеличиваем каждый элемент в 2 раза');
for i :=0 to n-1 do begin
b[i]:= 2*a[i];
write(b[i], ' ');
end;
writeln();
writeln('Увеличиваем на 5 все элементы проме 1-го и последнего');
for i:=0 to n-1 do begin
if (i=0) or (i=n-1) then
b[i]:= a[i]
else
b[i]:= a[i] +5;
write(b[i], ' ');
end;
writeln();
writeln('Первую половину массива увеличиваем на 1, вторую в 2 раза');
for i:=0 to n-1 do begin
if i < n div 2 then
b[i]:= a[i]+1
else
b[i]:= 2 * a[i];
write(b[i], ' ');
end;
end.