<span>непрерывно изменяющийся во времени</span>
Для случайных чисел:
var
a: array[1..5] of integer;
i: integer;
begin
randomize;
for i:=1 to 5 do
a[i] := random(100);
for i:=1 to 5 do
write(a[i], ' ');
writeln;
for i:=1 to 5 do
a[i] := a[i] * i;
for i:=1 to 5 do
write(a[i], ' ');
end.
Для ручного заполнения:
var
a: array[1..5] of integer;
i: integer;
begin
for i:=1 to 5 do
readln(a[i]);
for i:=1 to 5 do
write(a[i], ' ');
writeln;
for i:=1 to 5 do
a[i] := a[i] * i;
for i:=1 to 5 do
write(a[i], ' ');
end.
# -*- coding: utf-8 -*-
def getAverageFromEven(first, last):
'''Среднее арифметическое.'''
count, s = 0, 0
for i in range(first, (last + 1)):
if i % 2 == 0:
s += i
count += 1
return s / count
f = int(input('первый элемент: '))
l = int(input('первый элемент: '))
print 'среднее арифметическое: %i' % getAverageFromEven(f, l)
Program qq;
var x: real;
begin
readln (x);
if x>0 then writeln ('положительно')
else writeln ('отрицательно ');
end.