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

Дан двумерный массив размерностью 6 на 8, элементы которого находятся в диапазоне [-20,30]. Определить на каком месте находится минимальный элемент массива
2. Дан двумерный массив размерностью 6 на 8, элементы которого находятся в диапазоне [20,30]. Выведите на экран новый массив, полученный изменением исходного на одно и то же числа так, чтоб минимальный элемент нового массива стал равен 0.
3. Дан двумерный массив размерностью 6 на 8, элементы которого находятся в диапазоне [-20,30]. Найти сумму максимальных элементов каждого столбца
4. Дан двумерный массив размерностью 6 на 8, элементы которого находятся в диапазоне [-20,30]. Поменять местами минимальный и максимальный элементы массива. Новый массив вывести на экран.

👇
Ответ:
ilyavital
ilyavital
26.10.2020

pascal

Объяснение:

Задание 1

var

 i, j, mini, minj: integer;

 min: real;

 a: array [1..6, 1..8] of real;

begin

 min := 30;

 for i := 1 to 6 do begin

   for j := 1 to 8 do begin

     a[i, j] := random(51) - 20;

     Write(a[i,j]:6);

     if a[i, j] <= min then begin

       min := a[i, j];

       mini := i;

       minj := j;

     end;

   end;

   WriteLn;

 end;

WriteLn('Минимальный элемент A[',mini,',',minj,']=', min);

end.

Задание 2

var

 i, j: integer;

 min: real;

 a: array [1..6, 1..8] of real;

begin

 min := 30;

 for i := 1 to 6 do begin

   for j := 1 to 8 do begin

     a[i, j] := random(11) + 20;

     Write(a[i,j]:6);

     if a[i, j] <= min then min := a[i, j];

   end;

   WriteLn;

 end;

 

 for i := 1 to 6 do

   for j := 1 to 8 do

     a[i, j] := a[i, j] - min;

 WriteLn('Новый массив:');

 for i := 1 to 6 do begin

   for j := 1 to 8 do begin

     Write(a[i,j]:6);

   end;

   WriteLn;

 end;

end.

4,6(4 оценок)
Открыть все ответы
Ответ:
diankaa55
diankaa55
26.10.2020
//Pascal ABC.NET Версия 2.2 Сборка 790
var s,d:string;
n,i,j:integer;
begin;
readln(n);
readln(d);
i:=1;
for j:=1 to n-1 do
i*=10;
j:=i;
while i*10<>j do
begin;
inc(j);
s:=inttostr(j);
if pos(d,s)=0 then write(s:5);
end;
end.

Пример ввода:
2
1
Пример вывода:
20   22   23   24   25   26   27   28   29   30   32   33   34   35   36   37   38   39   40   42   43   44   45   46   47   48   49   50   52   53   54   55   56   57   58   59   60   62   63   64   65   66   67   68   69   70   72   73   74   75   76   77   78   79   80   82   83   84   85   86   87   88   89   90   92   93   94   95   96   97   98   99
4,6(90 оценок)
Ответ:
Xtrail
Xtrail
26.10.2020
Procedure TForm1.Button1Click(Sender: TObject);
var
  i1,i2,i3 : Integer;
  m : array [1..10] of Integer;
  kk : Integer;
begin
  Memo1.Clear;
  for i1 := 1 to 10 do
  begin
    m[i1]:= Random(10)-5;
    Memo1.Lines.Append('m['+inttostr(i1)+'] = '+inttostr(m[i1]));
  end;
  Memo1.Lines.Append('');
  kk := 0;
  for i1 := 1 to 10-2 do
  begin
    for i2 := i1+1 to 10-1 do
    begin
      for i3 := i2+1 to 10 do
      begin
        if ( (m[i1]+m[i2]+m[i3])=0) then
        begin
          inc(kk);
          Memo1.Lines.Append('Индекс = '+inttostr(i1)+'  '+inttostr(i2)+'  '+inttostr(i3)+'      Значение = '+inttostr(m[i1])+'  '+inttostr(m[i2])+'  '+inttostr(m[i3]));
        end;
      end;
    end;
  end;
  Memo1.Lines.Append('');
  if kk>0 then
    Memo1.Lines.Append('Да в этом массиве есть три числа сумма которых равна нулю')
  else
    Memo1.Lines.Append('Нет в этом массиве три числа сумма которых равна нулю');
  Memo1.Lines.Append('Количество комбинаций = '+inttostr(kk));
end;


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