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

Надо написать программу на паскале: имеется массив a из n целых чисел, массив b из m целых чисел . составить массив с из n+m целых чисел , таких, что вначале идут числа массива a , а затем числа массива b.

👇
Ответ:
Алексей28111
Алексей28111
04.06.2021
Program test;
var  a: array of integer;  b: array of integer;  c: array of integer;  aa, bb, cc: integer;
begin  writeln('Введите размер массива a');  readln(aa);  writeln('Введите размер массива b');  readln(bb);  a := new integer[aa];  b := new integer[bb];  c := new integer[aa + bb];  cc := 0;  aa := 0;  bb := 0;  writeln('Заполнение массива a');  while(aa < Length(a)) do   begin    readln(a[aa]);    aa := aa + 1;  end;  writeln('Заполнение массива b');  while(bb < Length(b)) do   begin    readln(b[bb]);    bb := bb + 1;  end;  while(cc < Length(c)) do   begin    if(cc < Length(a)) then begin      c[cc] := a[cc]    end else begin      c[cc] := b[cc - Length(a)];    end;    cc := cc + 1;  end;  writeln('Полученный массив');  cc:=0;  while(cc < Length(c)) do   begin    writeln(c[cc]);    cc:=cc+1;  end;end.
4,5(28 оценок)
Открыть все ответы
Ответ:
polisavostina
polisavostina
04.06.2021
Var a:array[1..10] of integer;
  k,n,i:integer;
  min:INTEGER;
begin
  randomize; N:=10; k:=0 {кол-во отрицательных элементов};
  writeln ('исходный массив');
  for i:=1 to N do
  begin
   if random(2) =1 then a[i]:=random(100)
     else begin k:=k+1; a[i]:=-random(100); min:=a[I] end;
   write(a[i]:5);
  end;
  writeln;
  {поиск минимального положительного}
  if (k<>0) or (k<>N) then  {есть отрицательные или не все отрицательные}
  begin
    for i:=1 to N do
     if  (a[i]>0) and (a[i]<min) then  min:=a[i];
  {замена}
    for i:=1 to N do
     if  (a[i]<0)  then  a[i]:=min;
  end;
  writeln('Новый массив')
    for i:=1 to N do      write(a[i]:5);
end.
4,8(81 оценок)
Ответ:
Баянсулу11
Баянсулу11
04.06.2021

1) Потому что любые данные в памяти компьютера хранятся в виде цепочек битов, т. е. последовательностей нулей и единиц.
2) Преобразование аналоговой формы представления звука в дискретную и обратное.
цифро-аналоговым преобразованием (ЦАП)
аналого-цифровым преобразованием (АЦП)
3) Звуковой процессор, ЦАП, усилитель.
4) Звук, видео, графика, объединенные в мультимедиа приложение, требуют больших объемов памяти. Поэтому для их хранения нужны
достаточно емкие и, желательно, недорогие носители.
5) Современные видеокарты имеют встроенный графический процессор, чтобы не нагружать центральный процессор компьютера.
6) Зрение человека создано для того, чтобы воспринимать тончайшие цветовые оттенки в полной мере и для этой цели идеальным
вариантом будет покупка видеопроектора. Именно это электронное устройство превысить стандартные размеры изображения.

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