Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
255615
03.11.2022 22:32 •
Информатика
Б. Келесі суреттен байланыс арналарының бір жакты немесе екі жан
Мысал
Байланыс арнасы
👇
Увидеть ответ
Открыть все ответы
Ответ:
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.
4,6
(56 оценок)
Ответ:
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.
4,4
(85 оценок)
Это интересно:
К
Компьютеры-и-электроника
11.10.2020
Как снять летсплей или как делать профессиональные видеоинструкции для YouTube?...
Д
Дом-и-сад
13.12.2020
Простые способы удаления жевательной резинки с бетона...
Ф
Финансы-и-бизнес
14.01.2023
Рассчитываем налог на собственность: полезные советы и всё, что нужно знать...
К
Компьютеры-и-электроника
06.09.2021
Как узнать, что пользователь заблокировал вас в Facebook Messenger...
К
Компьютеры-и-электроника
12.03.2020
Как запустить компьютер с командной строки: Руководство по запуску ОС без использования графического интерфейса...
О
Образование-и-коммуникации
23.03.2020
Как выжить в общежитии колледжа...
С
Стиль-и-уход-за-собой
12.12.2021
Как заменить ремешок на часах: простой и быстрый гид...
С
Стиль-и-уход-за-собой
03.12.2020
Безопасность в городе: как защитить себя от хулиганов?...
Д
Дом-и-сад
21.02.2022
Как выращивать тыкву зимних сортов: советы и рекомендации...
К
Кулинария-и-гостеприимство
27.12.2021
Как готовить морского окуня: секреты профессионалов...
Новые ответы от MOGZ: Информатика
sasunaklukina
11.11.2021
Задача Б. Создайте новый лист 2 – «Логические функции». Создайте таблицу, содержащую, по крайней мере, 10 строк в соответствии с задачей варианта. Запишите и создайте...
077k
11.11.2021
ИНФОРМАТИКА Қандай батырма? ...
Nastiya320
11.04.2020
От разведчика была получена шифрованная радиограмма. При передаче радиограммы было потеряно разбиение на буквы, но известно, что в радиограмме использовались только...
Maks818383
24.05.2021
Укажите порядок действий при распечатке проекта Scratch. 1. Сделать скрин проекта в Scratch. 2. Обработать его в Paint. 3. Запустить текстовый редактор Microsoft Word...
IrinaEropolova
13.02.2021
В одном множестве 36 элемент(-ов, -а), а в другом — 132. Какое максимальное количество элементов может быть в их объединении? ответ: ....
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
20.12.2020
Как выровнять подписи в горизонтальной оси в эксель? чтобы они были горизонтальны, текст переносился, если необходимо...
человекимир5
05.07.2021
Как делать подобные ? сколько единиц в двоичной записи числа 8^2014-2^614+45?...
DASHA56789111
18.07.2020
Найти сумму случайных чисел до тех пор пока не выпадет 0 каждая из случайных чисел вывести на экран...
acivnatala
10.12.2020
Программа кумир напишите алгоритм. вот : ввести два числа и вывести их в порядке убывания....
MOGZ ответил
Complete the sentence using verbs in the correct form. 1.The Glastonbury...
(( Постройте розу ветров по данным, приведенным в таблице С 2,СЗ...
При изотермическом расширении газа его давление уменьшилось с 3....
, Определи, какое предложение перед тобой: сложносочинённое, сложноподчинённое...
Подайте у вигляді степеня з основою х: Х⁵⁴ × Х⁶⁹...
Як розумів прекрасну мить фауст на початку твору?...
В соединении массовая доля калия равна 31,8%, хлора – 29,0% , остальное...
Розстріляне відродження суто національне явище чи загальна риса...
98. Решите систему симметрических уравнений:...
Навести приклад до усіх типів дисперсних систем вказаии приклади...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
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.