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

1.для матрицы 3* 3 обнулить все элементы с четным значением.результат вывести на экран 2.для матрицы 3*3 целых чисел найти индексы элементов с нулевым значением .результат вывести на экран. язык програмирования паскаль!

Показать ответ
Ответ:
nastich1
nastich1
29.06.2020 12:36
1. Для матрицы 3* 3 обнулить все элементы с четным значением. Результат вывести на экран.
uses crt;
const n=3;
var a: array [1..n,1..n] of integer;
     x,y: integer;
begin
     for x:=1 to n do begin
         for y:=1 to n do begin
             a[x,y]:=random(21)-10;
             write(a[x,y]:4);
             if a[x,y] mod 2=0 then a[x,y]:=0;
         end;
         writeln;
     end;
     writeln;
     for x:=1 to n do begin
         for y:=1 to n do
             write(a[x,y]:4);
         writeln;
     end;
end.

2. Для матрицы 3*3 целых чисел найти индексы элементов с нулевым значением. Результат вывести на экран.
uses crt;
const n=3;
var a: array [1..n,1..n] of integer;
    x,y: integer;
begin
     for x:=1 to n do begin
         for y:=1 to n do begin
             a[x,y]:=random(21)-10;
             write(a[x,y]:4);
         end;
         writeln;
     end;
     writeln;
     for x:=1 to n do
         for y:=1 to n do
             if a[x,y]=0 then writeln(x,',',y);
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота