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

Дан массив 4*4 случайных, целых чисел от -50 до 50. вывести максимальное число каждой строки. паскаль авс

👇
Ответ:
karallisa
karallisa
15.08.2022
 const     
n = 4;
 var 
  a : array [1..n,1..n] of integer; 
  i,j,max : integer; 
   begin 
 randomize;
   for i := 1 to n do 
   for j := 1 to n do   
  a[i,j] := -50 + random (101); 
     for i := 1 to n do 
  begin   
  max := a[i,1]; 
   for j := 2 to n do 
    if a[i,j] > max then   
    max := a[i,j];   
  writeln (max); 
   end; 
   end.
4,4(76 оценок)
Ответ:
orlovapolina14
orlovapolina14
15.08.2022
Var i, j: integer;
     a: array[1..4, 1..4] of integer;
     b: array[1..4] of integer;
begin
  for i := 1 to 4 do begin
    for j := 1 to 4 do begin
      a[i, j] := random(101) - 50;
      write(a[i, j]:5);
      if(a[i, j] > b[i]) then b[i] := a[i, j];
    end;
    writeln;
  end;

  for i := 1 to 4 do write(#10, 'Макс элемент ', i, ' строки: ', b[i]);
end.
4,5(2 оценок)
Открыть все ответы
Ответ:
DenKovYa
DenKovYa
15.08.2022

Такие задания очень легко решаются, если заменить логические знаки на арифметические. Сейчас я напишу логические знаки и их аналогичные арифметические.

∧ или & - * (умножение)

∨ - + (сложение)

¬ - отрицание (1 превращается в 0, а 0 в 1)


Запишу в качестве примера последнюю таблицу первую строчку

при A=0 B=0 C=0

A&B меняем на A*B

получается 0*0 ответ 0


A&B∨C меняем на A*B+C

получается 0*0+0 ответ 0


¬(A&B∨C) меняем на ¬(A*B+C)

получается ¬(0*0+0) сначала решаем в скобках, будет ¬(0) или ¬0 ответ: 1



Подробнее - на -

4,7(63 оценок)
Ответ:
Ляляляля109
Ляляляля109
15.08.2022

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

uses GraphABC;

type point=record

          x,y:integer;

          end;

procedure plitk(x,y,r:integer);

var p:array[1..9]of point;

   a,da:real;

   i:byte;

begin

a:=pi/2;

da:=pi/4;

for i:=1 to 9 do

begin

 p[i].x:=x+round(r*cos(a));

 p[i].y:=y-round(r*sin(a));

 a:=a+da;

end;

polygon(p,9);

end;

var r,i,j,x,y,d:integer;

begin

r:=20;

y:=r;

while y<=windowheight do

begin

 x:=r;

 while x<=windowwidth do

  begin

   plitk(x,y,r);

   x:=x+2*r;

  end;

 y:=y+2*r

end;

end

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