businkakiss
13.04.2022 13:03

Составить блок-схему и программу: 1. программы линейной структуры 2. программы разветвляющейся структуры

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
dzharullaev2015
06.01.2020 03:57

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

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 оценок)
Ответ:
538VICTORIA8425
08.03.2021 15:57

Відповідь:

Пояснення:

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-бота