В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
ghvcn
ghvcn
23.11.2022 13:26 •  Информатика

Программирование с#: зачем пишется значок "$" в строке ?

Показать ответ
Ответ:
Ananasik3333
Ananasik3333
03.09.2022 20:59
Const n=5;
var 
  a,b:array[1..n,1..n] of integer;
  i,j: byte;
  max2,k5:integer;
begin
  randomize;
  k5:=0;
  max2:=0;
  for i:=1 to n do begin 
    for j:=1 to n do begin
      a[i,j]:=random(1,100);
      write(a[i,j]:4);
      if (i=2) and (a[i,j]>max2) 
        then max2:=a[i,j];
      if (j=5) and (a[i,j] mod 2 =0) 
        then k5:=k5+1;
    end;
    writeln;
  end;  
  writeln;
  writeln ('Максимальный элемент 2-ой строки = ',max2);
  writeln ('Количество четных элементов 5-го столбца = ',k5);  
end.



Пример:

   2  26  38  58  16
  70  24  40  39  35
  74  38  69  93  94
  64   6  18  56  93
  44  86  17  93  56

Максимальный элемент 2-ой строки = 70 <br>
Количество четных элементов 5-го столбца = 3
0,0(0 оценок)
Ответ:
glo2
glo2
13.08.2021 22:48
Поскольку неясно, что делать, если в массиве несколько минимальных или максимальных элементов, то считаем, что их только по одному.

const n=10;
var
  a: array[1..n] of integer;
  mn,mx: integer;
  i,k1,k2: byte;
begin
  mn:=maxint;
  mx:=-maxint;
  writeln ('Введите ',n,' чисел: ');
  for i:=1 to n do begin;
    read (a[i]);
    if a[i]<mn then begin mn:=a[i]; k1:=i end;
    if a[i]>mx then begin mx:=a[i]; k2:=i end;
  end;
  for i:=1 to n do 
    if (i>min(k1,k2)) and (i<max(k1,k2)) then a[i]:=0;
  writeln;
  writeln ('Местоположение минимального элемента: ',min(k1,k2));
  writeln ('Местоположение максимального элемента: ',max(k1,k2));
  writeln;
  print (a);
end.


Пример:
Введите 10 чисел: 5 2 9 4 6 8 2 1 3 7

Местоположение минимального элемента: 3
Местоположение максимального элемента: 8

5 2 9 0 0 0 0 1 3 7
  
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота