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

Дана квадратная матрица А порядка М. Все элементы этой матрицы, лежащие на побочной диагонали и ниже ее, заменить единицами. Полученный результат вывести на экран. Составить программу в Python.

👇
Ответ:
MILAVASSILYEVA
MILAVASSILYEVA
02.08.2022

m = int(input())

matrix = [[int(_) for _ in input().split()] for __ in range(m)]

matrix = [[1 if i + j + 1 >= m else matrix[i][j] for j in range(m)] for i in range(m)]

[print(*_) for _ in matrix]

4,8(17 оценок)
Открыть все ответы
Ответ:
Katykazazaeva
Katykazazaeva
02.08.2022

Бірлік кесіндісі 1 см болатын координаталық түзуде А(-1) және В(5)

нүктелерін белгілеңдер. А және В нүктелерінің арақашықтығын табыңдар;

ә) А нүктесінен 2 см қашықтықта орналасқан А1 және А2 , ал В нүктесінен

3 см қашықтықта орналасқан В1 және В2 нүктелерін координаталық

жазықтықта белгілеңдер. Олардың координаталарын жазыңдар. [4]

2. х айнымалысының орнына қойғанда |х| < 2,3 теңсіздігі ақиқат болатындай

барлық бүтін сандарды жазыңдар. [2]

3. -2

3

7

+ 54

7

+ |−2

6

7

| + (-2,5) өрнегінің мәнін есептеңдер. [4 ]

4. Шеңбердің диаметрі 180 см болса, онда шеңбердің ұзындығы мен

дөңгелектің ауданы неге тең? [3]

А) 282,6 см, 25 434 см2

; В) 565,2 см, 25 434 см2

;

С) 565,6 см, 25 436 см2

; Д) 565,6 см, 25 446 см2

,

5. Егер 1: 50 000 000 масштабы бар картада 5 см жергілікті жерде қанша

километрді береді?

А) 2050 км; В) 2400 км; С) 2500 км; Д) 25 500км.

4,6(68 оценок)
Ответ:
wasuablezko
wasuablezko
02.08.2022
Const   
 n = 5; 
var   
a,b : array [1..n] of integer;   
i,s,k1,k2,max,min : integer;    

begin 
for i := 1 to n do   
readln (a[i]);    
for i := 1 to n do   
writeln (i,')elem = ',a[i]);    
end.  

begin 
for i := 1 to n do   
a[i] := i * 3;    
for i := 1 to n do   
writeln (i,')elem = ',a[i]); 
end.  

begin 
s := 0; 
for i := 1 to n do   
begin   
readln (a[i]);   
s := s + a[i];   
end;     
writeln (s);
end. 

begin   
k1 := 0;
k2 := 0;    
for i := 1 to n do   
begin   
readln (a[i]);   
if a[i] > 0 then     
k1 := k1 +1;   
if a[i] < 0 then     
k2 := k2 +1;   
end;       
writeln ('+ ',k1);   
writeln ('- ',k2); 
end.

 begin 
k1 := 0;
k2 := 0;  
 for i := 1 to n do   
begin   
readln (a[i]);   
if (a[i] > 0) and (i mod 2 = 1) then
     k1 := k1 +1;
    if (a[i] < 0) and (i mod 2 = 0) then     
k2 := k2 +1;   
end;      
writeln ('+ ',k1);
writeln ('- ',k2);
 end.  

begin 
for i := 1 to n do   
begin   
readln (a[i]);   
if a[i] < 0 then     
b[i] := sqr (a[i]);   
if a[i] > 0 then     
b[i] := a[i] * a[i] * a[i];   
end;    
 for i := 1 to n do 
 write (a[i],' '); 
writeln (); 
for i := 1 to n do   
write (b[i],' '); 
end.   

begin 
for i := 1 to n do   
readln (a[i]);
max := a[1]; min := a[1];
for i := 2 to n do
   begin   
if a[i] > max then     
max := a[i];   
if a[i] < min then     
min := a[i];   
end; 
writeln ('max=',max); 
 writeln ('min=',min); 
end.   

begin 
for i := 1 to n do   
readln (a[i]);    
writeln ('found :'); 
readln (s);   
 k1 := 0; k2 := 0; 
for i := n downto 1 do   
if a[i] = s then   
begin     
k1 := k1 + 1;     
k2 := i;   
end; 
writeln ('k=',k1); 
writeln ('i=',k2); 
   end.

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