1.дан двумерный массив.определить: а) сумму всех элементов третьей строки массива; б) сумму всех элементов 5-го столбца массива. 2.дан двумерный массив.определить: а) сумму отрицательных элементов пятой строки массива; б) сумму элементов четвертого столбца массива, меньших 100; в) количество элементов четвертой строки массива, меньших 5; г) количество ненулевых элементов второго столбца массива, больших 15. нужно написать программы в паскале.заранее .

//Pascal
//1)
var
  A: array[1..5, 1..8] of integer;
  i, j: byte;
  sumR, sumC: integer;
begin
  randomize;
  writeln('Исходный массив':28);
  for i := 1 to 5 do
  begin
    for j := 1 to 8 do
    begin
      A[i, j] := random(61)-30;
      write(A[i,j]:5);
      if i = 3 then sumR := sumR + A[i, j];
      if j = 5 then sumC := sumC + A[i, j];
    end;
  writeln;
  end;
  writeln('Сумма элементов 5 столбца = ', sumC);
  writeln('Сумма элементов 3 строки = ', sumR);
end.

//2)
var
  A: array[1..5, 1..8] of integer;
  i, j: byte;
  sumA, sumB, countV, countG: integer;
begin
  randomize;
  writeln('Исходный массив':28);
  for i := 1 to 5 do
  begin
    for j := 1 to 8 do
    begin
      A[i, j] := random(300)-150;
      write(A[i,j]:5);
      if ((i = 5) and (A[i, j] < 0)) then sumA := sumA + A[i, j];
      if ((j = 4) and (A[i, j] < 100)) then sumB := sumB + A[i, j];
      if ((i = 4) and (A[i, j] < 5)) then countV := countV + 1;
      if ((j = 2) and (A[i, j] > 15)) then countG := countG + 1;
    end;
  writeln;
  end;
  writeln('Сумма отрицательных 5 строки = ', sumA);
  writeln('Сумма меньших 100 4-ого столбца = ', sumB);
  writeln('Количество меньших 5 4-ой строки = ', countV);
  writeln('Количество ненулевых, больших 15 2-ого столбца = ', countG);
end.

1) полная таблица истинности каждого выражения с пятью переменными содержит 2^5 = 32 строки;

2) в каждой таблице содержится по 4 единицы и по 28 нулей, ( то есть 32-4);

3) выражение a v - b равно нулю тогда, когда a = 0 или b = 1;

4) min количество единиц в таблице истинности выражения a v - b будет тогда, когда там будет наибольшее число нулей, то есть в max количество строк одновременно a = 0 и b = 1;

5) по условию a = 0 в 28 строках, и b = 1 в 4 строках, поэтому выражение a v - b может быть равно нулю не более чем в 4 строках, а оставшиеся 32 – 4 = 28 могут быть равны 1.

ответ: 28.

Объяснение:

Школьный обед - меню (список блюд с ценой), сколько человек подписаны на бесплатный/комплексный обед, какой объем блюд нужно приготовить к обеду, время обеда и тд

Ремонт квартиры - какие изменение необходимо сделать, бюджет, кто будет делать, материалы и их приобретение, инструменты, рассчетное время ремонта и тд

Пассажир поезда - имя, место, билет, постель, чай, спутники, багаж, от куда и куда, поезд и вагон

Дом, в котором ты живешь -  адрес, этажность, материал стен, коммуникации, год сдачи, кол-во подьездов и тп