//PascalABC.Net 3.1 сборка 1200
uses System;
begin
var Replace4to16 := new Dictionary<string, string>();
Replace4to16.Add('00', '0');
Replace4to16.Add('01', '1');
Replace4to16.Add('02', '2');
Replace4to16.Add('03', '3');
Replace4to16.Add('10', '4');
Replace4to16.Add('11', '5');
Replace4to16.Add('12', '6');
Replace4to16.Add('13', '7');
Replace4to16.Add('20', '8');
Replace4to16.Add('21', '9');
Replace4to16.Add('22', 'a');
Replace4to16.Add('23', 'b');
Replace4to16.Add('30', 'c');
Replace4to16.Add('31', 'd');
Replace4to16.Add('32', 'e');
Replace4to16.Add('33', 'f');
var n4 := ReadString('a_4 = ');
if n4.Length mod 2 = 1 then n4 := '0' + n4;
var n16 := '';
for var i := 0 to n4.Length div 2 - 1 do
if Replace4to16.ContainsKey(n4.Substring(2 * i, 2)) then
n16 += Replace4to16[n4.Substring(2 * i, 2)]
else writeln('Неверные знаки "', n4.Substring(2 * i, 2), '" в числе');
writeln(n16);
end.
Var
n, cnt, sum, i, t: integer;
begin
read(n);
cnt := 0;
sum := 0;
for i := 1 to n do
begin
read(t);
if t > 0 then
begin
inc(cnt);
sum := sum + t;
end;
end;
writeln(sum / cnt : 0 : 1);
write(cnt);
end.
Скорее всего задание некорректное: так как не бывает
отрицательных значение в диапазоне от 0(нуля) до 25. Предположим, что
отрицательные значения элементов присутствуют, тогда как считать их вначале
минимальными или делать противоположными а потом сравнивать. Ведь -25 и 25
разные значения по определению. Если в массиве не один минимальный элемент а
два или более, какой индекс минимального элемента брать первый, последний или где-то
в середине массива. На будущее пишите язык программирования, на котором
необходимо реализовать программу.
Программа написана на Паскале.
Ищется индекс первого минимального значения массива.
<span>Код замены отрицательных элементов массива и замены их на противоположные
тоже включил. Но вначале считает значение элемента на минимум затем заменяет
его на противоположный.
//-------------------------------------------------------------------------------
// Написал GonanSoft
//-------------------------------------------------------------------------------
var
da : array[1..10] of Integer; // da - DimensionalArray (одномерный массив)
i : Integer; // Рабочая переменная цикла
i_min : Integer; // индекс минимального элемента массива
//Заполняем элементы массива da десятью произвольными числами из диапазона от 0 до 25
Randomize;
for i := 1 to 10 do
begin
da[i] := Random(26);
end;
i_min := 1; // Изначально считаем значение первого элемента массива минимальным
for i := 1 to 10 do
begin
// Выполняем поиск минимального элемента массива
if (da[i]<da[i_min]) then
begin
i_min := i;
end;
//Заменяем все отрицательные элементы массива на противоположные
if (da[i]<0) then
begin
da[i] := Abs(da[i]);
end;
end;
// Вывод результата
Writeln('Минимальный элемент массива ' + inttostr(da[i_min]));
Writeln('Индекс минимального элемента массива ' + inttostr(i_min));
//---------------------------------------------------------------------------</span><span>
</span>
1.
А да
Б нет
2. 3 тактовая частота
3. 1. Разъём для связи материнской платой и 3. разъём питания