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

Даны два двумерных массива а и б создать третий двумерный массив из максимальных элементов массивов а и б как я понял нужно сравнить первый элемент первого и 1 эл второго массива а затем использовать их для создания третьего

👇
Ответ:
Xa4Men771
Xa4Men771
12.11.2020
#include <stdio.h>
char main(void)
{
  char A[5][5],B[5][5],C[5][5];
        int i,j, n = 5, m = 5;
printf(" Array A: ");
printf("\r\n");

    srand(time(0));
    for (i=0; i<n; i++)
      {
         for (j=0; j<m; j++)
          {
            A[i][j] = rand() %10;
            printf("%d ", A[i][j]);
           
          }
        printf("\r\n");
      }
printf(" Array B: ");
printf("\r\n");
srand(time(0));
    for (i=0; i<n; i++)
      {
         for (j=0; j<m; j++)
          {
            B[i][j] =1+ rand() %9;
            printf("%d ", B[i][j]);
               
          }
        printf("\r\n");
      }
    printf(" Array C: ");
   printf("\r\n");
for (i=0; i<n; i++)
      {
         for (j=0; j<m; j++)
          {
            if (A[i][j]>B[i][j])
                 C[i][j] = A[i][j];
                     else
                 C[i][j] = B[i][j];
               printf("%d ", C[i][j]);
          }
        printf("\r\n");
      }
 }

ПАСКАЛЬ
Program asd;
Const n=3; m=3;
var A,B,C:array[1..n,1..m] of integer;
i,j:integer;
BEGIN
Writeln('Массив А: ');
For i:=1 to n do
begin
for j:=1 to m do
begin
A[i,j]:=Random(10);
Write(A[i,j]:3);
end;
Writeln;
end;
Writeln;
Writeln('Массив B: ');
For i:=1 to n do
begin
for j:=1 to m do
begin
B[i,j]:=Random(10);
Write(B[i,j]:3);
end;
Writeln;
end;
Writeln;
Writeln('Массив C: ');
For i:=1 to n do
begin
for j:=1 to m do
begin
if A[i,j]>B[i,j] then C[i,j]:=A[i,j]
else C[i,j]:=B[i,j];
Write(C[i,j]:3);
end;
writeln;
end;
END.
4,7(100 оценок)
Открыть все ответы
Ответ:
bragi2015
bragi2015
12.11.2020

var 

  a, b, c: real;

 

begin

  writeln('Введите 3 любых числа');

  readln(a, b, c);

  if (a < b) and (a < c) then writeln(a, ' - наименьшее число');

  if (b < a) and (b < c) then writeln(b, ' - наименьшее число');

  if (c < a) and (c < b) then writeln(c, ' - наименьшее число');

  if (a > b) and (a > c) then writeln(a, ' - наибольшее число');

  if (b > a) and (b > c) then writeln(b, ' - наибольшее число');

  if (c > a) and (c > b) then writeln(c, ' - наибольшее число');

  readln; //Убрать если среда разработки не Turbo Pascal

end.

4,5(44 оценок)
Ответ:
AlexeyVT
AlexeyVT
12.11.2020
Разветвляющийся алгоритм

Var a,b,c,d,e:integer;

Begin

Writeln('Введите значения переменных');

Readln(a,b,c,d,e);

If (a>b) and (a>c) and (a>d) and (a>e) tnen

Writeln('Наибольшее из 5 чисел ', a)

Else

If (b>a) and (b>c) and (b>d) and (b>e) tnen

Writeln('Наибольшее из 5 чисел ', b)

Else

If (c>a) and (c>b) and (c>d) and (c>e) tnen

Writeln('Наибольшее из 5 чисел ', c)

Else

If (d>a) and (d>b) and (d>c) and (d>e) tnen

Writeln('Наибольшее из 5 чисел ', d)

Else

Writeln('Наибольшее из 5 чисел ', e);

End.

Циклический алгоритм

Type

Vector=array [1..10] of integer;

Var m:integer;

a:vector;

i:byte;

Begin

Writeln('Введите значения переменных');

For i:=1 to 5 do

      Readln (a[i]);

For i:=1 to 5 do

If  a[i]>a[i+1] then

m:=a[i];

Writeln('Наибольшее число ', m);

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