В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
kuki10
kuki10
08.02.2020 13:28 •  Информатика

Надрукуйте всі цілі числа з інтервалу [120; 150]
Знайти всі трьохзначні числа, сума цифр яких дорівнює числу A.

Показать ответ
Ответ:
Alev1603
Alev1603
21.09.2020 19:40

Короче. Вот код.

def matrix_gen(gen, n, m):    Matrix = [];    for i in range(n):        a = [];        for j  in range(m):            a.append(gen[j]);        Matrix.append(a);    return Matrix;

Объяснение

Сначало ты инициализируешь функицю с названием "matrix_gen", которая принимает 3 параметра, 'gen' -- это генератор которые ты будешь использовать. 'n' & 'm' это размер матрицы.

Второй строчкой ты инициалихируешь пустой массив, которые похже заполнишь. Третей строчкой ты в for цикле обходишь все строки матрицы, они же подмассивы массива  Matrix, просто 'a'. Делаем мы это 'n' раз.

Четвётрой строчкой ты инициализируешь массив(ы, мы в цикле) 'a', и следующей строчкой заполняешь уже его. Так же в for цикле. Всего в нём будет 'm' элементов.

Надеюсь решение правильное. Честно говоря у тебя вопрос очень странно поставлен.

0,0(0 оценок)
Ответ:
Элчанкин
Элчанкин
12.12.2020 16:20

Відповідь:

Пояснення:

1/

program g;

var a: array [1..5] of integer;

   i,imax,imin, n: byte;

begin

imax:=1; imin:=1; n:=0;

writeln('Ââåäèòå ìàññèâ èç 5 ýëåìåíòîâ â ñòðîêó ÷åðåç ïðîáåë');

for i:=1 to 5 do

   begin

   read(a[i]);

   if a[i]>a[imax] then imax:=i;

   if a[i]<a[imin] then imin:=i;

   end;

if imax < imin then

   for i:=imax+1 to imin do

       if a[i] < 0 then  n:= n+1;

if imin < imax then

   for i:=imin+1 to imax do

       if a[i] < 0 then  n:= n+1;

if n>=1 then  writeln('Äà')

       else writeln('Íåò');

readln;

end.

2.

program kol;

var a: array [1..5] of integer;

   i,max,min, n ,m: byte;

begin

max:=1; min:=1;

n := 0; m := 0;

writeln('Ââåäèòå ìàññèâ èç 5 ýëåìåíòîâ â ñòðîêó ÷åðåç ïðîáåë');

for i:=1 to 5 do

   begin

   read(a[i]);

   if a[i]>a[max] then a[i]:= a[max];

   if a[i]<a[min] then a[i]:= a[min];

   end;

for i:=1 to 5 do

   begin

   if a[i] = a[max] then n:= n+1;

   if a[i] = a[min] then m:=m+1;

   end;

writeln('Êîëè÷åñòâî ìàêñèìàëüíûõ ýëåìåíòîâ  ', n);

writeln('Êîëè÷åñòâî ìèíèìàëüíûõ ýëåìåíòîâ  ', m);

readln;

end.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота