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

Во Какая команда пропущена в данном участке программы, отвечающем за поиск номера максимального элемента массива. Запишите команду без пробелов.

1)r:=1;
2)for i:=2 to n do
3) if a[i]>a[r]
4) then ...

Во Установите верный порядок следования команд при поиске в массиве из 50 элементов, количество элементов равных k.

Варианты ответов

1)i:=0;
2)for i:=1 to n do
3)if a[i]=k then
4)i:=i+1;
Во Отметьте правильное утверждение о массивах в языке Паскаль.

Варианты ответов

1)элементы массива могут быть разных типов
2)все элементы массива должны быть одного типа
3)элементы всегда нумеруются с единицы
Во Требуется заполнить массив именно так:

X = [1 3 5 7 9 11]
Какой оператор надо поместить в тело цикла вместо многоточия?

for k:=1 to 6 do begin
...
end;
Варианты ответов

1)X[k] := k
2)X[k] := 2*k
3)X[k] := 2*k - 1
4)X[k] := 2*k + 1
Во Для заданного массива запишите без пробелов команду присваивания элементу с индексом 3 значение суммы элементов с индексами 7 и 4.

Во Что производит следующий фрагмент программы?

For i:=1 to 8 do writeln (a[i] );

Варианты ответов

1)Ввод элементов массива по формуле
2)Ввод элементов массива с клавиатуры
3)Вывод элементов массива в столбец
4)Вывод элементов массива в строку
Во Что выполняет фрагмент программы?
For i:=1 to 10 do readln(A[i]);

Варианты ответов

1)Ввод элементов массива по формуле
2)Ввод элементов массива с клавиатуры
3)Вывод элементов массива в столбец
4)Вывод элементов массива в строку
Во Что выполняет фрагмент программы?
For i:=1 to 10 do A[i]:=random(1000)-500;

Варианты ответов

1)заполнение массива с клавиатуры
2)выводит элементы массива на экран
3)заполнение массива с датчика случайных чисел
4)обнуляет элементы массива
Во Что выполняет фрагмент программы?
For i:=1 to 10 do A[i]:=0;

Варианты ответов

1)заполнение массива с клавиатуры
2)выводит элементы массива на экран
3)заполнение массива с датчика случайных чисел
4)обнуляет элементы массива
Во Какое количество данных может находиться в данном массиве var ch: array[6..18] of integer;?

Варианты ответов

1)6
2)12
3)18
4)13
Во Числовой одномерный массив А заполнен последовательно числами 4, 8, 13, 25. Укажите значение элемента А[2].

Варианты ответов

1)8
2)4
3)25
4)13
Во В какой строке НЕ правильное описание массива?

Варианты ответов

1)var ch: array[1..10] of integer;
2)var stih: array[1,5..7] of real;
3)var STL23: array[2..108] of real;
Во Для подсчета количества положительных элементов массива будем использовать оператор…

Варианты ответов

1)If a[i]>0 then k+1;
2)If a[i]>0 then k:=k+a[i];
3)If a[i]>0 then k:=k+1;
4)If a[i]>0 then k+a[i];
Во В записи D[4]=3.5, D обозначает…

Варианты ответов

1)имя ячейки
2)имя массива
3)обозначение типа
4)размерность массива
Во Какие значения примут элементы массива A[3] и A[4] после выполнения последовательности операторов
A[3] := 5;
A[4] := 6;
A[3] = A[4];
A[4] := A[3]?

Варианты ответов

1)A[3] = 6; A[4] = 6
2)A[3] = 6; A[4] = 5
3)A[3] = 5; A[4] = 6
4)A[3] = 5; A]4] = 5

👇
Открыть все ответы
Ответ:
ochvv15owqbd0
ochvv15owqbd0
01.06.2023
Const
  n=15;
var
  i,np,nn,amax:integer;
  a:array[1..n] of integer;
begin
  Randomize;
  Write('Исходный массив: ');
  np:=0; nn:=0;
  for i:=1 to n do begin
    a[i]:=Random(51)-15;
    Write(a[i],' ');
    if a[i]>0 then Inc(np)
    else if a[i]<0 then Inc(nn);
    end;
  Writeln;
  if np/nn>2 then begin
    amax:=a[i];
    for i:=2 to n do
      if a[i]>amax then amax:=a[i];
    Write('Выходной массив: ');
    for i:=1 to n do begin
      if a[i]<0 then a[i]:=1
      else
        if a[i]>0 then a[i]:=a[i]*amax;
      Write(a[i],' ')
      end;
    Writeln
    end
  else Writeln('В массив изменения не вносятся')
end.

Пример работы программы
Исходный массив: 28 8 21 32 0 26 30 11 35 21 14 6 0 -4 -8
Выходной массив: 980 280 735 1120 0 910 1050 385 1225 735 490 210 0 1 1
4,4(26 оценок)
Ответ:
Semykina2003
Semykina2003
01.06.2023
ЛЛЛЛ ,ЛЛЛЕ ,ЛЛЛТ ,ЛЛЛО ,ЛЛЕЛ ,ЛЛЕЕ ,ЛЛЕТ ,ЛЛЕО ,ЛЛТЛ ,ЛЛТЕ ,ЛЛТТ ,ЛЛТО ,ЛЛОЛ ,ЛЛОЕ ,ЛЛОТ ,ЛЛОО ,ЛЕЛЛ ,ЛЕЛЕ ,ЛЕЛТ ,ЛЕЛО ,ЛЕЕЛ ,ЛЕЕЕ ,ЛЕЕТ ,ЛЕЕО ,ЛЕТЛ ,ЛЕТЕ ,ЛЕТТ ,ЛЕТО ,ЛЕОЛ ,ЛЕОЕ ,ЛЕОТ ,ЛЕОО ,ЛТЛЛ ,ЛТЛЕ ,ЛТЛТ ,ЛТЛО ,ЛТЕЛ ,ЛТЕЕ ,ЛТЕТ ,ЛТЕО ,ЛТТЛ ,ЛТТЕ ,ЛТТТ ,ЛТТО ,ЛТОЛ ,ЛТОЕ ,ЛТОТ ,ЛТОО ,ЛОЛЛ ,ЛОЛЕ ,ЛОЛТ ,ЛОЛО ,ЛОЕЛ ,ЛОЕЕ ,ЛОЕТ ,ЛОЕО ,ЛОТЛ ,ЛОТЕ ,ЛОТТ ,ЛОТО ,ЛООЛ ,ЛООЕ ,ЛООТ ,ЛООО ,ТЛЛЛ ,ТЛЛЕ ,ТЛЛТ ,ТЛЛО ,ТЛЕЛ ,ТЛЕЕ ,ТЛЕТ ,ТЛЕО ,ТЛТЛ ,ТЛТЕ ,ТЛТТ ,ТЛТО ,ТЛОЛ ,ТЛОЕ ,ТЛОТ ,ТЛОО ,ТЕЛЛ ,ТЕЛЕ ,ТЕЛТ ,ТЕЛО ,ТЕЕЛ ,ТЕЕЕ ,ТЕЕТ ,ТЕЕО ,ТЕТЛ ,ТЕТЕ ,ТЕТТ ,ТЕТО ,ТЕОЛ ,ТЕОЕ ,ТЕОТ ,ТЕОО ,ТТЛЛ ,ТТЛЕ ,ТТЛТ ,ТТЛО ,ТТЕЛ ,ТТЕЕ ,ТТЕТ ,ТТЕО ,ТТТЛ ,ТТТЕ ,ТТТТ ,ТТТО ,ТТОЛ ,ТТОЕ ,ТТОТ ,ТТОО ,ТОЛЛ ,ТОЛЕ ,ТОЛТ ,ТОЛО ,ТОЕЛ ,ТОЕЕ ,ТОЕТ ,ТОЕО ,ТОТЛ ,ТОТЕ ,ТОТТ ,ТОТО ,ТООЛ ,ТООЕ ,ТООТ ,ТООО

Всего: 128


var
  a : array [1..4] of char;
  i, k, l, m, N : byte;
begin
  a[1] := 'Л'; a[2] := 'Е'; a[3] := 'Т'; a[4] := 'О';
  for i := 1 to 3 do begin
    for k := 1 to 4 do begin
      for l := 1 to 4 do begin
       for m := 1 to 4 do begin
         if i <> 2 then begin write(a[i], a[k], a[l], a[m], ' ,'); N += 1; end;
        end;
      end;
    end;
  end;
    writeln('Всего: ', N)
end.
4,8(56 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ