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

Що таке числова матриця?
3. Який синтаксис оголошення багатовимірного масиву у Pascal?
4. Як зберігаються елементи багатовимірного масиву і який обсяг пам’яті вони займають?
5. Як здійснюється індексація елементів багатовимірного масиву?
6. Яким чином можна ініціалізувати багатовимірний масив у Pascal?
7. Яким чином можуть опрацьовуватися багатовимірні масиви у програмах Pascal? 8. Наведіть приклади практичного застосування багатовимірних масивів

Показать ответ
Ответ:
viakobchuk
viakobchuk
13.01.2020 15:25
А - количество порций эскимо на столе
В - количество стаканчиков на столе

Начало

Ввод данных:
В : = 18
А : = В/3

Действие 1:
В : = В - 3

Действие 2:
А:= А-5

Вывод результатов:
Покажи А
Покажи В

Конец

Протокол выполнения алгоритма:
№ команды  Имя переменной   Значение переменной 
1.                          В                                    18
2.                          А                                      6
3.                          В                                    15
4.                          А                                       1
 
0,0(0 оценок)
Ответ:
blackfox30
blackfox30
14.06.2020 14:58
Const
  m=5;
  n=3;
var
  i,j,k:integer;
  a:array[1..m,1..n] of integer;
begin
  Randomize;
  Writeln('Исходный массив');
  k:=0;
  for i:=1 to m do begin
    for j:=1 to n do begin
      a[i,j]:=Random(999)+1;
      Write(a[i,j]:4);
      if (a[i,j] mod 8=0) and (a[i,j] mod 10=4) then Inc(k);
      end;
    Writeln
  end;
  if k>0 then begin
    Writeln('Искомые элементы');
    for i:=1 to m do
      for j:=1 to n do
        if (a[i,j] mod 8=0) and (a[i,j] mod 4=10) then Write(a[i,j],' ')
    end
  else
    Writeln('Нет элементов, кратных 8 и оканчивающихся на 4')
end.

Пример работы программы
Исходный массив
 424 672 826
 546 587 413
 507 211 884
 252 781 518
 750 656 359
Искомые элементы
424
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота