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

Б. Келесі суреттен байланыс арналарының бір жакты немесе екі жан
Мысал
Байланыс арнасы​

👇
Увидеть ответ
Открыть все ответы
Ответ:
tatyankafi
tatyankafi
03.11.2022
//PascalABC.NET 3.3,сборка 1611 от 06.01.2018//Внимание! Если программа не работает, обновите версию!

begin

  var mas:=ArrRandom(20,-99,99); mas.Println;

  var a:=mas[0:10]; var b:=mas[10:20]; 

   Writeln('количество положительных элементов=',a.Where(t->t>0).Count);

    Writeln('количество отрицательных элементов=',b.Where(t->t<0).Count);

end.
это как учат в школе :->

var 

i,k,l:integer;

mas:Array[1..20] of integer;

begin

randomize;

for i:=1 to 20 do

mas[i]:=random(-99,99);

for  i:=1 to 10 do

if mas[i]>0 then

k:=k+1;

for  i:=11 to 20 do

if mas[i]>0 then

l:=l+1;

Writeln('количество положительных элементов=',k);

    Writeln('количество отрицательных элементов=',l);

    end.

Массив содержит 20 элементов. определить количество положительных элементов в первой его половине и
Массив содержит 20 элементов. определить количество положительных элементов в первой его половине и
Массив содержит 20 элементов. определить количество положительных элементов в первой его половине и
4,6(56 оценок)
Ответ:
romanilblockp08hg1
romanilblockp08hg1
03.11.2022
Результат работы и листинг программы в приложениях.
Написано в PascalABC.NET но должно работать во всех Паскалях.

----------------------------

PROGRAM A20;

CONST
    max = 100;
TYPE
    matrix = array[1..max,1..max]of shortint;
VAR
    ar:matrix;
    num:byte;
    i,j:byte;
    a,b,c:byte;
    q:boolean;

BEGIN
  repeat
  //  num := 5;
    write('Введите размер матрицы n=');
    readln(num);
   
    for i:=1 to num do begin
      for j:=1 to num do
        read(ar[i,j]);
    end;
 
    i:=1;//диагональ
    q:=true;
   
    while q and (i<num) do begin
      j:= i+1;//колонка и ряд
      while q and (j<=num) do begin
        a := ar[j,i];
        b := ar[i, j];
       
        if (ar[j,i] <> ar[i, j])
          then q:=false;
        j:=j+1;
      end;
      i:=i+1;
    end;
   
    if q then
      writeln('YES')
    else
      writeln('NO');
   
    write('Введите 1 чтобы продолжить. 0 чтобы завершить');
    readln(i)
  until(i=0); 
END.

Решать через pascalabc.net ( вам проверьте, является ли двумерный массив симметричным относительно г
4,4(85 оценок)
Это интересно:
К
Как снять летсплей или как делать профессиональные видеоинструкции для YouTube?...
Д
Дом-и-сад
13.12.2020
Простые способы удаления жевательной резинки с бетона...
Ф
Рассчитываем налог на собственность: полезные советы и всё, что нужно знать...
К
Как узнать, что пользователь заблокировал вас в Facebook Messenger...
К
Как запустить компьютер с командной строки: Руководство по запуску ОС без использования графического интерфейса...
О
Как выжить в общежитии колледжа...
С
Как заменить ремешок на часах: простой и быстрый гид...
С
Безопасность в городе: как защитить себя от хулиганов?...
Д
Дом-и-сад
21.02.2022
Как выращивать тыкву зимних сортов: советы и рекомендации...
К
Как готовить морского окуня: секреты профессионалов...
Новые ответы от MOGZ: Информатика
sasunaklukina
sasunaklukina
11.11.2021
Задача Б. Создайте новый лист 2 – «Логические функции». Создайте таблицу, содержащую, по крайней мере, 10 строк в соответствии с задачей варианта. Запишите и создайте...
077k
077k
11.11.2021
ИНФОРМАТИКА Қандай батырма? ​...
Nastiya320
Nastiya320
11.04.2020
От разведчика была получена шифрованная радиограмма. При передаче радиограммы было потеряно разбиение на буквы, но известно, что в радиограмме использовались только...
Maks818383
Maks818383
24.05.2021
Укажите порядок действий при распечатке проекта Scratch. 1. Сделать скрин проекта в Scratch. 2. Обработать его в Paint. 3. Запустить текстовый редактор Microsoft Word...
IrinaEropolova
IrinaEropolova
13.02.2021
В одном множестве 36 элемент(-ов, -а), а в другом — 132. Какое максимальное количество элементов может быть в их объединении? ответ: ....
daffar1daffari
daffar1daffari
11.05.2021
Определите результат работы программы dim a(10) as integer s=0 for i = 1 to 10 a(i)=i * 2 s=s + a(i) next i print s end...
Lolka200Fantazii0
Lolka200Fantazii0
20.12.2020
Как выровнять подписи в горизонтальной оси в эксель? чтобы они были горизонтальны, текст переносился, если необходимо...
человекимир5
Как делать подобные ? сколько единиц в двоичной записи числа 8^2014-2^614+45?...
DASHA56789111
DASHA56789111
18.07.2020
Найти сумму случайных чисел до тех пор пока не выпадет 0 каждая из случайных чисел вывести на экран...
acivnatala
acivnatala
10.12.2020
Программа кумир напишите алгоритм. вот : ввести два числа и вывести их в порядке убывания....

MOGZ ответил

Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
О НАС
ПОМОЩЬ
App
.
.
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ