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

Сформировать массив из 10 случайных чисел,вывести их на экран,найти их сумму.

👇
Ответ:
Nikita82279
Nikita82279
16.06.2022

import random

a = [0]*10

for i in range(len(a)):

   a[i] = random.randint(0, 10000)#ставишь предел для рандомных чисел

s = 0

for j in range(len(a)):

   s += a[j]

print(s)

4,6(54 оценок)
Открыть все ответы
Ответ:
Shkolaetopolniyad
Shkolaetopolniyad
16.06.2022
1)var n,k: integer; begin   write('число:   ');   readln(n);   k: =0;   repeat     k: =k*10+n mod 10;     n: =n div 10;   until n=0;   writeln('новое число:   ',k); end. 2) var n,k,m: integer; begin  write('двоичное число:   ');   readln(n);   k: =1;   m: =0;   repeat    m: =m+k*(n mod 10);     n: =n div 10;     k: =k*2;   until n=0;   writeln('десятичное число:   ',m); end.
4,7(81 оценок)
Ответ:
12853
12853
16.06.2022
// Дан массив целых чисел. Все нечетные элементы удвоить, а четные уменьшить вдвое.

var a: array [1..10] of real; // возьмем массив из 10 чисел
    i,x      :byte;
begin
  randomize;
  for i:=1 to 10 do //заполняем исходный массив случайными числами (до 1000)
  begin
    a[i]:=random(1000);
    writeln (i,' элемент исходного массива ',a[i]);
  end;
  writeln ();
  for i:=1 to 10 do
  begin
      x:=i mod 2; //определяем четный или нет элемент массива
      if x=0 then //если элемент четный
        begin
          a[i]:=a[i]/2;
          writeln (i,' элемент массива  - четный   ',a[i]);
        end
         else      //если элемент нечетный
        begin
          a[i]:=a[i]*2;
          writeln (i,' элемент массива  - нечетный ',a[i]);
        end;
  end;
end.
4,6(45 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ