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

Создайте и выведите на экран матрицу размера 5х5, где на главной диагонали стоят единицы, а прочие элементы равны 2. Получившуюся матрицу сохраните в текстовый
файл.

Показать ответ
Ответ:
ИбрагимЛе
ИбрагимЛе
06.07.2022 16:54
Программное обеспечение Под программным обеспечением понимается совокупность программ, выполняемых вычислительной системой. К программному обеспечению относится также вся область деятельности по проектированию и разработке ПО. - Технология проектирования программ; - Методы тестирования программ; - Методы доказательства правильности программ; - Анализ качества работы программ; - Документирование программ; - Разработка и использование программных средств, облегчающих процесс проектирования программного обеспечения, и многое другое. Программное обеспечение – неотъемлемая часть компьютерной системы. Оно является логическим продолжением технических средств. Сфера применения конкретного компьютера определяется созданным для него ПО. Сам по себе компьютер не обладает знаниями ни в одной области применения. Все эти знания сосредоточены в выполняемых на компьютерах программах. Программное обеспечение современных компьютеров включает миллионы программ – от игровых до научных.
0,0(0 оценок)
Ответ:
vanab322
vanab322
10.01.2023 10:20
Const
  m=5;
  n=7;
var
  a:array[1..m,1..n] of integer;
  i,j,amax:integer;
  p:real;
begin
  Randomize;
  Writeln('Исходный массивэ');
  for i:=1 to m do begin
    for j:=1 to n do begin
      a[i,j]:=Random(90)+10;
      Write(a[i,j]:3)
      end;
    Writeln
    end;
  {Задача 1}
  amax:=a[1,1];
  for i:=1 to m do
    for j:=1 to n do
      if a[i,j]>amax then amax:=a[i,j];
  Writeln('Максимальный элемент равен ',amax);
  {Задача 2}
  p:=1;
  for i:=1 to m do
    for j:=1 to n do
      if a[i,j] mod 2=0 then p:=p*a[i,j];
  Writeln('Произведение четных элементов равно ',p);
end.

Пример работы
Исходный массивэ
 94 20 49 80 70 55 40
 62 74 71 51 88 10 76
 68 11 11 74 96 50 69
 98 34 25 93 52 53 61
 68 85 35 15 77 78 97
Максимальный элемент равен 98
Произведение четных элементов равно 2.86826492979212E+33
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота