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

1. имеется одномерный массив размерностью 20, заполненный рандомными числами на отрезке от 1 до 20. требуется удалить из него максимальный и минимальный элементы примечание: алгоритм удаления: сдвигаются все элементы на 1 позицию влево, начиная с элемента, значение которого оказалось максимальным; последнему элементу присваивается значение 0; при выводе массива уменьшается количество выводимых элементов на 1. пример 11 20 15 9 14 10 удаление элемента №2 11 15 9 14 10 0 вывод 11 15 9 14 10 выполнить сложение матрицы a[3x4} и матрицы в[3x4], заполненных случайными однозначными числами в полученной матрице с перераспределить элементы в столбцах следующим образом: отсортировать первую строку матрицы по убыванию; остальные элементы каждого столбца должны переместиться в тот же столбец, куда переместился их первый (верхний) элемент, т.е. следовать за ним.

👇
Ответ:
9000Кира0009
9000Кира0009
06.06.2020
Const
   N = 20;
Var
   A:array[1..N] of integer;
   i,M:integer;
Begin
Randomize;
Write('Исходный массив:');
M:=1;
For i:= 1 to N do
    Begin
    A[i]:=random(N+1);
    Write(' ',A[i]);
    if A[i] > A[M] then M:=i;
    End;
WriteLn;
WriteLn('Max = ',A[M],'[',M,']');
if M < N then
   For i:= M to N-1 do
       A[i]:=A[i+1];
M:=1;
For i:= 1 to N-1 do
    if A[i] < A[M] then M:=i;
WriteLn('Min = ',A[M],'[',M,']');
if M < N then
   For i:= M to N-1 do
       A[i]:=A[i+1];
Write('После удаления Max и Min:');
For i:= 1 to N-2 do
    Write(' ',A[i])
End.

Const
   N = 3;
   M = 4;
Var
   A,B,C:array[1..N,1..M] of shortint;
   i,j,Max,t:integer;
Begin
Randomize;
WriteLn('Матрица A:');
For i:= 1 to N do
    Begin
    For j:= 1 to M do
        Begin
        A[i,j]:=random(19)-9;
        Write(A[i,j]:2,' ')
        End;
    WriteLn
    End;
WriteLn('Матрица B:');
For i:= 1 to N do
    Begin
    For j:= 1 to M do
        Begin
        B[i,j]:=random(19)-9;
        Write(B[i,j]:2,' ');
        End;
    WriteLn
    End;
WriteLn('A+B:');
For i:= 1 to N do
    Begin
    For j:= 1 to M do
        Begin
        C[i,j]:=A[i,j]+B[i,j];
        Write(C[i,j]:3,' ');
        End;
    WriteLn
    End;
For i:= 1 to N do
    Begin
    Max:=i;
    For j:= i+1 to M do
        if C[1,j] > C[1,Max] then Max:=j;
    For j:= 1 to N do
        Begin
        t:=C[j,Max];
        C[j,Max]:=C[j,i];
        C[j,i]:=t
        End;
    End;
WriteLn('Матрица C:');
For i:= 1 to N do
    Begin
    For j:= 1 to M do
        Write(C[i,j]:3,' ');
    WriteLn
    End;
ReadLn
End.
4,4(96 оценок)
Открыть все ответы
Ответ:
tigranmesropyan
tigranmesropyan
06.06.2020
// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var x:=ReadInteger('Введите трехзначное число:');
  var (a,b,c):=(x div 100,x div 10 mod 10,x mod 10);
  if b+c<>0 then
    if x mod (10*b+c)=0 then begin
      Writeln('Вычеркнуть первую цифру (',a,')');
      Exit
      end
  else
    if a+c<>0 then
      if x mod (10*a+c)=0 then begin
        Writeln('Вычеркнуть вторую цифру (',b,')');
        Exit
      end
    else
      if a+b<>0 then
        if x mod (10*a+b)=0 then begin
          Writeln('Вычеркнуть третью цифру (',c,')');
          Exit
        end;
  Writeln('Нет решения')
end.

Загадывается трехзначное число х. из него нужно вычеркнуть одну цифру так, чтобы оставшееся число y
4,6(50 оценок)
Ответ:
Using System;

public class Test
{
public static void Main()
{
int n, a, b;
Console.Write("Введите номер задачи:\n");
Console.Write("1 - вычисление максимального числа;\n");
Console.Write("2 - вычисление минимального числа;\n");
Console.Write("3 - вычисление суммы чисел.\n");
Console.Write("4 - вычисление произведения чисел.\n");
n = int.Parse(Console.ReadLine());
Console.Write("Введите два числа:\n");
a = int.Parse(Console.ReadLine());
b = int.Parse(Console.ReadLine());
    switch (n) {
    case 1 : 
    if (a>b) Console.Write("max = {0}",a);
    else Console.Write("max = {0}",b);
    break;
    case 2 :
    if (a<b) Console.Write("min = {0}",a);
    else Console.Write("min = {0}",b);
    break;
    case 3:
    Console.Write("S = {0}",a+b);
    break;
    case 4:
    Console.Write("П = {0}",a*b);
    break;
    }
}
}

Пример:
Введите номер задачи:
1 - вычисление максимального числа;
2 - вычисление минимального числа;
3 - вычисление суммы чисел.
4 - вычисление произведения чисел.
4
Введите два числа:
5
8
П = 40
4,4(11 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ