Написать алгоритм и программу, которые исходный числовой массив данных (если он есть) считывают из текстового файла f1, а выходную информацию записывают в текстовый файл f2. Дан массив А из четного числа N элементов. Сформировать массив В из: К=N/2 элементов так, чтобы b1=aN+aN–1, b1=aN–2+aN–3, … , bK–1=a4+a3, bK=a2+a1

1)Program massiv;

Var mas:array[1..20] of integer;

a,b,i,sum:integer;

Begin

sum:=0;

For i:=1 To 20 Do

begin

mas[i]:= random(100); {Заполняем массив случайными числами в промежетке от 0 до 99 (можешь изменить промежуток}

write(mas[i],' ');

end;

Writeln('Введите a,b');

Readln(a,b);

For i:=1 To 20 Do

begin if (mas[i]>a) and (mas[i]<b) Then sum:=sum+mas[i]; end; Writeln(sum); end.    2)  Program massiv; Var mas:array[1..20] of integer; i,min,max,pr:integer; Begin For i:=1 To 20 Do begin mas[i]:= random(15); write(mas[i],' '); end; Writeln; min:=30000; max:=0; For i:=1 To 15 Do begin if mas[i]>max Then max:=mas[i]; if mas[i]<min Then min:=mas[i]; end; pr:=min*max; Writeln(pr); end.  3)Program massiv;Var mas:array[1..20] of integer; a,b,i,k:integer;BeginFor i:=1 To 20 Dobegin mas[i]:= random(100); {Заполняем массив случайными числами в промежетке от 0 до 99 (можешь изменить промежуток}write(mas[i],' ');end;Writeln('Введите a,b,k');Readln(a,b,k);i:=1;While i<>20 Dobeginif (mas[i]>a) and (mas[i]<b) and(mas[i] mod k=0) ThenWrite(mas[i],' ');i:=i+1;end;　end. 4)Var mas:array[1..20] of integer; i,min,max,pr:integer; Begin randomize; For i:=1 To 20 Do begin mas[i]:= random(100)+1; write(mas[i],' '); end; Writeln; pr:=1; For i:=1 To 15 Do begin pr:=pr*mas[i]; end; Writeln(pr); end.

Решение 1:  Пусть N – искомое основание системы счисления. Так как запись числа 63 в системе счисления с основанием N содержит 3 цифры, то N2.<= 63 <N3 . Этому условию удовлетворяют числа N = 4, 5, 6, 7, 8.  Так как запись числа 63 в позиционной системе счисления с основанием  N заканчивается на 0, то N – делитель числа 63. Следовательно, N = 7.

Замечание. Можно сделать проверку – записать число 63 в 7-чной системе счисления. Имеем:

63:7  = 9 (ост 0);  9:7 =  1 (ост 2)  1:7  = 0 (ост 1)Вывод: 6310=1207