natashashvachka
15.11.2022 00:40

Арнама кіріп видеоларымды бағалап кетіңіздерші, ұнаса арнама тіркеліп кетулеріңізге сұраймын, ютубтан Inka_3252 міне аты​

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Irina5600
15.06.2021 03:28

Общение в интернете весьма разнообразно на данный момент.

Электронная почта - самый базовый вид общения. Без нее в интернете никуда, ведь она требуется для большенства регистраций на всевозможных сайтах и ресурсах. А так же является простым и удобным обмена информацией и файлами, а так же хранения онных. Правда, чтоб написать кому-то, вам надо знать его электронный адрес

Чаты быстрого обмена короткими текстовыми сообщениями с одним и более людьми, как знакомыми так и нет.

Instant Messengers (ICQ,Jabber,MNS,Skype,...) - гибрид электронной почты и чата. Быстрый обмен короткими текстовыми сообщениями с уже знакомым собеседником или с тем кому вы дали свой номер для связи. Так же позднее добавилась возможность обмена файлами, голосовое и видео общение, но основной принцип все тот же.

Блоги, форумы, дневники - опять таки гибрид электронной почты и чата. Тут уже сообщения не короткие, как раз надо изложить информацию как можно более удобно для чтенья, добавить картинки, видео, музыку. А увидеть ваши опусы может кто-угодно и даже имеет возможность оставить обстоятельный комментарий

Социальные сети (Vk,Odnoklassniki,Facebook,...) - это некий вариант IM, который хочет с вас снять завесу анонимности. Тут вы можете искать людей, с которыми уже сталкивались в реальной жизни и общаться с ними. Как более поздний вариант общения, старается обьеденить в себе все черты предыдущих, хотя порой этого делать не стоит

0,0(0 оценок)
Ответ:
anonymus98
09.12.2020 07:08
Const
  n=10; 
  m=10;
var
  a: array[1..n,1..m] of integer;
  b: array[1..n] of integer;
  i,j,k: integer;
begin;
  k:=0;
  writeln ('Двумерный массив:');
  for i:=1 to n do begin
    for j:=1 to m do begin
      a[i,j]:=random(100)-50;
      write (a[i,j]:4);
      if (a[i,j]<0) and (abs(a[i,j] mod 2)=1)
        then k:=k+1;
    end;
    writeln;
    b[i]:=k;
    k:=0;
  end;
  writeln;
  writeln ('Сформирован одномерный массив:');
  for i:=1 to n do
    write (b[i]:3);
end.

Результат:

Двумерный массив:
  19  30 -49 -10 -10 -14 -25 -19 -16 -11
 -18  18   1  18  32  21  22 -33  45  45
 -50 -26 -24 -47   8  39  14  34  45 -21
 -33   5 -26   3 -38   0 -40  31 -42  11
 -32 -25 -47   2 -24  34 -48 -27  18   8
  12  42 -49   7  23  -5   3  48  32   1
  22  -9 -14 -46 -28  26  -6  48   5 -19
  11  40 -42 -17  27  25 -29  23  26  24
  36  -9 -34 -14  17 -26   3  16  29  17
  47 -39  49   7  39  26  39  48 -21  -1

Сформирован одномерный массив:
  4  1  2  1  3  2  2  2  1  3
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота