Паскаль в массиве 1.Составьте программу, которая в одномерном массиве размерностью 12 (элементы случайные - id1189503020220706 от Galinachlen 06.07.2022 12:57

Question

Информатика: Паскаль в массиве 1.Составьте программу, которая в одномерном массиве размерностью 12 (элементы случайные числа из промежутка от 1 до 9) подсчитывает количество чётных элементов. Оформите вывод элементов на экран в строчку, вывод количества чётных на следующей строке. 2.Составьте программу, которая в одномерном массиве размерностью 8 (элементы массива случайные числа из промежутка от 15 до 100) находит максимальный элемент. Оформите вывод элементов на экран в строчку, максимальный на следующей строке.

Galinachlen · Accepted Answer

Function t10_q(x,q:longint):string;
const
s='0123456789ABCDEFGHI';
var
t,m:longint;
r:string;
begin
t:=x; r:='';
while t>=q do
begin
    m:=t mod q;
    r:=s[m+1]+r;
    t:=t div q
end;
t10_q:=s[t+1]+r
end;

{ тестирование }
var
q,n:longint;
begin
Write('Введите основание системы счисления (2-20): '); Readln(q);
Write('Введите натуральное число для перевода: '); Readln(n);
Writeln(n,'(10)=',t10_q(n,q),'(',q,')')
end.

Тестовое решение:
Введите основание системы счисления (2-20): 16
Введите натуральное число для перевода: 16350
16350(10)=3FDE(16)

MOGZ ответил