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

Решать на pascal abc объединить два массива a и b в массив c.

👇
Ответ:
daqqwe
daqqwe
19.08.2022
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
  var a:=ArrRandom(ReadInteger('m='),10,20); a.Println;
  var b:=ArrRandom(ReadInteger('n='),30,40); b.Println;
  Writeln('Массив С');
  var c:=a+b; c.Println;
end.

Тестовое решение
m= 8
12 14 15 13 15 16 14 10
n= 11
40 33 37 37 33 31 32 38 35 37 35
Массив С
12 14 15 13 15 16 14 10 40 33 37 37 33 31 32 38 35 37 35
4,8(31 оценок)
Открыть все ответы
Ответ:
Zhamik11
Zhamik11
19.08.2022
Const n=20;
type omas=array[1..n] of integer;
Procedure Del (var z:omas; k:byte); 
var i:byte; 
begin 
for i:=k to n-1 do z[i]:=z[i+1]; 
z[n]:=0; 
end; 
var a:omas; i,b:integer;
begin
Randomize;
for i:=1 to n do
 begin
 a[i]:=random(20);
 write(a[i]:4);
 end;
writeln;
b:=6;
i:=1;
while (i<=n)and(a[i]<>b) do i:=i+1;
if i<=n then
  begin
  Del(a,i);
 writeln('Размерность массива = ',n-1);
 for i:=1 to n-1 do write(a[i]:4);
 writeln;
 end  else writeln('Массив не изменился');
end.
Пример:
  12  13   6   7  17   1  18  17   3   2  12   3  16   6   7  13   0   2   5  18
Размерность массива = 19
  12  13   7  17   1  18  17   3   2  12   3  16   6   7  13   0   2   5  18
4,6(96 оценок)
Ответ:
superstudio57
superstudio57
19.08.2022
Допустим, Соня разбила окно
тогда говорят правду: Миша, Оля и Рома

Допустим, Миша
тогда говорят правду: Миша, Оля и Коля

Допустим, Володя
тогда говорят правду: Соня, Володя, Оля, Коля

Допустим, Аня
тогда говорят правду: Миша, Аня

{просто чтобы убедиться, что решение единственно}

Допустим, Оля
тогда говорят правду: Миша, Оля, Рома

Допустим, Рома
тогда говорят правду: Миша, Оля, Коля

Допустим, Коля
тогда говорят правду: Миша, Оля, Коля, Толя

Допустим, Толя
тогда говорят правду: Миша, Оля, Коля

Действительно, только в одном варианте истинны два высказывания
-> Аня разбила окно
4,4(37 оценок)
Новые ответы от MOGZ: Информатика

MOGZ ответил

Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ