from random import randint as random
m = [random(1,100) for i in range(1,30+1)]
s = -1
for i in range(0,30):
print('{:3.0f}'.format(m[i]))
for i in range(0,28):
if m[i]+m[i+1]+m[i+2]>s:
a = m[i]
b = m[i+1]
c = m[i+2]
s = a + b + c
print(' a b c')
print('{:3.0f}'.format(a))
print('{:3.0f}'.format(b))
print('{:3.0f}'.format(c))
3)коньюртер изображен на данной схеме
Program calculator;
Var a,b: real;
Begin
Write('Первое число:');
readln (a);
Write('Второе число:');
readln (b);
Write('Результат: ',a+b);
End.
// Дан массив А(30). Сформировать новый массив из значений элементов массива А кратных 5
var ish, krat: array [1..30] of word;
i,j,x :byte;
begin j:=1;
randomize;
for i:=1 to 30 do //заполняем исходный массив случайными числами (до 1000)
begin
ish[i]:=random(1000);
writeln (i,' элемент исходного массива ',ish[i]);
end;
writeln ('находим элементы кратные пяти:');
for i:=1 to 30 do
begin
x:= ish[i] mod 5; //определяем элементы кратные пяти
if x=0 then
begin //и заполняем новый
krat[j]:=ish[i];
writeln (j,' элемент нового массива ',krat[j],' равен ',i,' элементу исходного массива');
j:=j+1;
end;
end;
<span>end.</span>
