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

Составьте таблицу истинности для следующего выражения:


Составьте таблицу истинности для следующего выражения:

👇
Открыть все ответы
Ответ:
Sofia0715
Sofia0715
09.02.2022
// PascalABC.NET 3.2, сборка 1361 от 12.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var m:=ReadInteger('Количество строк в массиве:');
  var n:=ReadInteger('Количество столбцов в массиве:');
  Writeln('*** Исходный массив A[',m,',',n,'] ***');
  var a:=MatrRandom(m,n,-50,50);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var b:=a.Cols.Select(x->x.Sum);
  b.Println;
end.

Пример
Количество строк в массиве: 7
Количество столбцов в массиве: 10
*** Исходный массив A[7,10] ***
  38  21  17  35  46 -38 -43  20 -38  47
   5   5   1  20  22 -12 -30 -21 -41   3
 -42   3  21 -25  18 -18  -7  21 -44  25
  -1  50  21  -1  23  49   9 -17 -32  47
  36 -44  46   7  48  -9 -35 -29 -48  35
  19  -6 -38  12 -17 -16  50  -9 -34  13
  20 -13  13 -12  -2   5  35 -48  47  23

75 16 81 36 138 -39 -21 -83 -190 193
4,6(100 оценок)
Ответ:
Михайлов11
Михайлов11
09.02.2022
Полагаю, Pascal ABC.

//Для Pascal ABC.Net:
Var a:array[1..10] of longint;n,i,k:longint;
Begin
readln(n); //Читаем количество элементов в массиве
for i:=1 to n do
begin
read(a[i]); //Читаем каждый элемент в массиве
if (a[i]<0) then k+=1; //Увеличиваем счётчик k на 1, если элемент меньше нуля
end;
writeln(k); //Выводим счётчик k
End.

//Для Pascal ABC:
Var a:array[1..10] of integer;n,i,k:integer; //Простой Паскаль не поддерживает longint
Begin
readln(n); 
for i:=1 to n do
begin
read(a[i]); 
if (a[i]<0) then k:=k+1; //Отличие в том, что здесь нельзя просто увеличить с только с :=k+1
end;
writeln(k); //Выводим счётчик k
End.
4,4(68 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ