1. var x : array[1..1000] of integer; n,i,max,min : integer; begin write('n = '); readln(n); writeln('Исходный массив:'); for i:=1 to n do begin write('x[',i,']='); readln(x[i]); end; writeln; max:=x[1]; min:=x[1]; for i:=2 to n do begin if x[i] > max then max:=x[i]; if x[i] < min then min:=x[i]; end; writeln('max=',max,' min=',min); writeln('Среднее = ',(max+min)/2:5:2); end.
Дан целочисленный массив из 20 элементов. Элементы массива могут принимать целые значения от –10 000 до 10 000 включительно. Опишите на одном из языков программирования алгоритм, позволяющий найти и вывести количество пар элементов массива, в которых сумма элементов делится на 2, но не делится на 4. В данной задаче под парой подразумеваются два соседних элемента массива.
Исходные данные объявлены так, как показано ниже на примерах для некоторых языков программирования. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать некоторые из описанных переменных.
БейсикPython
CONST N = 20 DIM A (1 TO N) AS INTEGER DIM I, J, K AS INTEGER FOR I = 1 TO N INPUT A(I) NEXT I … END
// допускается также использовать
// две целочисленные переменные
// j и k
a = []
n = 20
for i in range(0, n):
a.append(int(input()))
…
ПаскальАлгоритмический язык
const N = 20; var a: array [1..N] of integer; i, j, k: integer; begin for i := 1 to N do readln(a[i]); … end.
алг нач цел N = 20 целтаб a[1:N] цел i, j, k нц для i от 1 до N ввод a[i] кц … кон
n,k: int64;
s: string;
begin
write('двоичное число: '); readln(s);
k:=1; n:=0;
for i:=length(s) downto 1 do
begin
n:=n+(ord(s[i])-48)*k;
k:=k*2;
end;
writeln('десятичное число: ',n);
end.