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

Даны два высказывания: А = “2 х 2 = 4”, В = “2 х 2 = 5”. Очевидно, что А=1, В=0. Определите значение выражений


Даны два высказывания: А = “2 х 2 = 4”, В = “2 х 2 = 5”. Очевидно, что А=1, В=0. Определите значение

👇
Открыть все ответы
Ответ:
ulianalypka
ulianalypka
28.03.2023
Const n=6;
var x:array[1..n] of integer=(-1, 1, 2, -2, -3, 3);
y,z:array[1..n] of integer;
i,i1,i2:integer;
begin
for i:=1 to n do write(x[i]:3);
writeln;
i1:=0; i2:=0;
for i:=1 to n do
 if x[i]>0 then begin i1:=i1+1; y[i1]:=x[i]; end
 else if x[i]<0 then begin i2:=i2+1; z[i2]:=x[i]; end;
writeln('  Y:  Z:');
for i:=1 to n do
 if (i1>=i)and(i2>=i)
  then writeln(y[i]:3,z[i]:4)
  else if i1>=i then writeln(y[i]:3)
   else if i2>=i then writeln(z[i]:7);
end.

Результат:
 -1  1  2 -2 -3  3
  Y:  Z:
  1  -1
  2  -2
  3  -3
4,5(35 оценок)
Ответ:
koksenenko10
koksenenko10
28.03.2023
//Pascal
var
  A: array [1 .. 5, 1 .. 5] of integer;
  i, j, SUM: integer;
begin
  randomize;
  writeln(' ***Исходная матрица***');
  for i := 1 to 5 do
  begin
    for j := 1 to 5 do
    begin
      A[i, j] := random(50);
      if j >= i then SUM := SUM + A[i, j];
      write(A[i, j]:4);
    end;
    writeln;
  end;
  writeln;
  writeln('Сумма элементов = ', SUM);
  writeln;
  writeln(' ***Измененная матрица***');
  for i := 1 to 5 do
  begin
    for j := 1 to 5 do
    begin
      if i = j then A[i, j] := 1;
      write(A[i, j]:4);
    end;
    writeln;
  end;
  readln;
end.

Информатика. в паскале с подробным решением. задана матрица а(5, 5). вычислить сумму элементов верхн
4,5(77 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ