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

5. Напишите программу вычесления выражений: ( )

👇
Открыть все ответы
Ответ:
Mary200001313
Mary200001313
29.03.2021
Const nx=30;var i,j,p,n:integer;A:array[1..nx,1..nx] of integer;d,Sn,min:real;begin p:=1;write('Введите размер матрицы');Read(n);for i:=1 to n do beginfor j:=1 to n do beginA[i,j]:=random(3)-2;write(A[i,j]:4);end;writeln;end;writeln;writeln;for i:=1 to n do beginfor j:=1 to n do beginif i = j then begin if A[i,j]<> 0 then p:=p* A[i,j];write(A[i,j]:4);endelse write(' ':4);end;writeln;end;write('p =',p);writeln;writeln;for i:=1 to n do beginfor j:=1 to n do beginif (i= n -j +1) then begin if A[i,j]<> 0 then p:=p* A[i,j];write(A[i,j]:4);endelse write(' ':4);end;writeln;end;write('p =',p);end.
4,7(49 оценок)
Ответ:
dashagorlova2
dashagorlova2
29.03.2021

Монитор говорит:  

-Без меня вообще невозможно. Иначе как можно было бы увидеть всё, что происходит в компьютере. Ясно дело. Я тут самый важный и главный.  

Клавиатура возмущённо ответила:  

-Как это так? С чего это ты взял, что главный тут ты? По моему я наиболее важная деталь. Как же вы без меня компьютером управлять будете? Получается я не заменимая и лучшая его часть.  

Тут затороторила память, да так быстро, что никто нечего не понял.  

-Так, стоп, -вмешался процессор, ну сколько можно? Процессор был очень мудрым и его всегда все слушались.  

-Ваш спор настолько глуп, что смешно вас слушать. Нет главных деталей компьютера. Мы все с вами единственные и незаменимые. И только вместе состовляем единое целое.  

После слов процессора все притихли и погрузились в работу, поняв что затеяли глупый спор.

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