Program massiv;
var i,max,n,j: integer;
a: array[1..30] of integer;
begin
writeln ('Введите элемент массива');
for i:=1 to 30 do
begin
write ('a[',i,']-');
readln (a[i]);
end;
n:=1;
max:=a[i];
for i:=2 to 30 do
if max<a[i] then
begin
max:=a[i];
n:=i;
end;
for i:=1 to 30 do
if a[i]<0 then a[i]:=-a[i];
writeln ('Наибольший элемент в массиве ', max);
writeln ('Номер массива ', n);
writeln ('Получившийся массив');
for i:=1 to 30 do
write (a[i],' ');
end.
<span>Современным компьютерам предшествовали ЭВМ нескольких поколений. В развитии ЭВМ выделяют пять поколений. В основу классификации заложена элементная база, на которой строятся ЭВМ. </span>
2021 это 202,1*10 или 404,2*5 (вариантов бесчисленно много)
3000 это 300*10 или 30000/10
545 это 109*5 или 5450/10
Ответ:
Парень,ты бы фотку бы отправил
Объяснение:
Отправь фотку я все сделаю
61/2=30 (остаток 1)30/2=15 (остаток 0)15/2=7 (остаток 1)7/2=3 (остаток 1)3/2=1 (остаток 1)1/2=0 (остаток 1)Записываем остатки в обратном порядке, это и будет ответ111101
61/8=7 (остаток 5)7/8=0 (остаток 7)Записываем остатки в обратном порядке, это и будет ответ75
61/16=3 (остаток 13)3/16=0 (остаток 3)Записываем остатки в обратном порядке, это и будет ответ3D