М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
timurtim1
timurtim1
21.11.2022 05:31 •  Информатика

, задачи по питону, не пишите слишком сложное решение , заранее !

👇
Открыть все ответы
Ответ:
nicgames
nicgames
21.11.2022
// исходный массив
int mas[10] = {21,13,52,43,9,18,27,34,28,56};
int i = 0;  // счетчик
int index_min; // переменна для хранения индекса минимального элемента в массиве
int min = mas[0]; // сначала принимаем 1ый элемент как минимальный
while (i < 10) {       // проходим по всему массиву
if (mas[i] < min) {   // если текущий элемент меньше минимального
min = mas[i];    // делаем его минимальным
index_min = i;   // запоминаем его индекс
} i++;               // увеличиваем счетчик }
printf("Min = %d ", mas[index_min]);    // выводим минимальный элемент
int Sum = 0;       // переменная для подсчета суммы
i = index_min+1;   // индес следующего элемента - правее за минимальным
while (i < 10) {   // пробегаем по массиву от следующего за минимальным до конца
Sum += mas[i]; // суммируем
i++;           // увеличиваем счетчик
}
printf("Sum = %d ", Sum);  // выводим результат суммы
4,4(7 оценок)
Ответ:
BomgGang
BomgGang
21.11.2022
//прога на Pascal`е
{не работает на  PascalABC.Net, т.к. оный использует 2-байтную кодировку Unicode, а не 1-байтную кодировку ASCII, как более ранние версии Pascal`ей}
const
n = 32*2;
var
ch: array [1..n] of byte;
i, num: byte;
begin
num:=192;
for i:=1 to n do
begin
ch[i]:=num;
inc (num);
end;

writeln ('Символ   |   Код ASCII');
writeln ('');
for i:=1 to n do writeln ('   ', chr(ch[i]), '     |    ', ch[i]);end.

{версия для PascalABC.Net}
//прога на Pascal`е
const
n = 32*2;
var
ch: array [1..n] of byte;
i, num: byte;
begin
num:=192;
for i:=1 to n do begin
ch[i]:=num;
inc (num);
end;

writeln ('Символ   |   Код ASCII');
writeln ('');
for i:=1 to n do writeln ('   ', chr(ch[i]+848), '     |    ', ch[i]);

end.
4,5(10 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ