• Даны два массива, заполненные каждый десятью случайными целыми числами, каждое которых от 1 до 9 включительно.Сложите массивы поэлементно, результаты запишите в третий массив.На экан вывести все три массива
    Решите пожалуйста

Ответы 5

  • 3 дня
  • program Arr;varArr1, Arr2, Arr3: array[0..9] of integer;I: integer;procedure ShowArray (const Mess: string; Arr: array of integer);varI: integer;beginWriteln(Mess);for I := 0 to 9 doWrite(Arr[I], ' ');Writeln;end;beginfor I := 0 to 9 dobeginArr1[I] := 1 + Random(10);Arr2[I] := 1 + Random(10);Arr3[I] := Arr1[I] + Arr2[I];end;ShowArray('Первый массив:', Arr1);ShowArray('Второй массив:', Arr2);ShowArray('Третий Массив', Arr3);Readln;end.
    • Автор:

      red84
    • 6 лет назад
    • 0
  • program Arr;{$APPTYPE CONSOLE}uses System.SysUtils; var Arr1, Arr2, Arr3: array[0..9] of integer; I: integer; procedure ShowArray (const Mess: string; Arr: array of integer); var I: integer; begin Writeln(Mess); for I := 0 to 9 do Write(Arr[I], ' '); Writeln; end;begin for I := 0 to 9 do begin Arr1[I] := 1 + Random(10); Arr2[I] := 1 + Random(10); Arr3[I] := Arr1[I] + Arr2[I]; end;
  • ShowArray('Первый массив:', Arr1); ShowArray('Второй массив:', Arr2); ShowArray('Третий Массив', Arr3); Readln;end.
  • сколько времени есть у тебя?
    • Автор:

      darryl
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years