Выполните умножение и результат перевидите в десятичную систему счисления :1011(2)×1010(2)
Ответы на вопрос:
program z1;
const n=8;
var a:array [1..n] of integer;
i,m: integer;
begin
writeln ('Результаты заплыва: ');
for i:= 1 to n do
begin
write(i,'-й: ');
readln(a[i])
end;
writeln;
m:=a[i];
for i:= 1 to n do
if a[i]<m then m:=a[i];
writeln('Лучший: ',m)
end.
program z2;
const n=12;
var a:array [1..n] of integer;
i,m: integer;
begin
writeln ('Массив: ');
for i:= 1 to n do
begin
write(i,'-й элемент: ');
readln(a[i])
end;
writeln;
m:=a[i];
for i:= 1 to n do
if a[i]>m then m:=a[i];
writeln('Максимальный: ',m)
end.
Объяснение:
Сначала вводим элементы массива.
Затем предполагаем, что первый элемент наименьший (1 задача) или наибольший (2 задача). Потом сравниваем элементы массива с переменной, в которую записали первый элемент, и меняем переменную, если условие срабатывает. Выводим результат на экран.
Популярно: Информатика
-
araratpashayan529.12.2020 22:30
-
tasapetrova20.06.2020 13:55
-
MoLNiyaStaR05.03.2020 12:51
-
vkonareva03.07.2022 18:46
-
123456789Ad1jssjsj10.05.2021 00:09
-
yroslav12020603.02.2021 15:59
-
11345689019.05.2021 16:36
-
MrsDrew12.02.2021 20:57
-
Uliana4444101.08.2020 11:11
-
braskyn05.05.2020 16:32