fork(1) download
copy 
  1. with Ada.Text_IO; use Ada.Text_IO;
  2. with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;
  3.  
  4. procedure Q5B is
  5.    M, N : Integer;
  6.    A, B, C : array (1 .. 100) of Integer; -- Tamanho máximo dos vetores
  7.    I : Integer;
  8.  
  9. begin
  10.    -- Leitura do tamanho dos vetores
  11.    Put_Line("Digite o tamanho do vetor A (m):");
  12.    Get(M);
  13.    Put_Line("Digite o tamanho do vetor B (n):");
  14.    Get(N);
  15.  
  16.    -- Verifica se os tamanhos são compatíveis
  17.    if M /= N then
  18.       Put_Line("Os vetores devem ter o mesmo tamanho.");
  19.       return;
  20.    end if;
  21.  
  22.    -- Leitura do vetor A
  23.    Put_Line("Digite os elementos do vetor A:");
  24.    for I in 1 .. M loop
  25.       Get(A(I));
  26.    end loop;
  27.  
  28.    -- Leitura do vetor B
  29.    Put_Line("Digite os elementos do vetor B:");
  30.    for I in 1 .. N loop
  31.       Get(B(I));
  32.    end loop;
  33.  
  34.    -- Soma dos vetores A e B, armazenando em C
  35.    for I in 1 .. M loop
  36.       C(I) := A(I) + B(I);
  37.    end loop;
  38.  
  39.    -- Exibição do vetor C
  40.    Put_Line("Vetor C (soma de A e B):");
  41.    for I in 1 .. M loop
  42.       Put(C(I), 1);
  43.       if I < M then
  44.          Put(" "); -- Coloca um espaço entre os elementos
  45.       end if;
  46.    end loop;
  47.    New_Line;
  48. end Q5B;
  49.  
Success #stdin #stdout 0s 5284KB
comments (?)
stdin
copy 
2
2
2
2
2
2
stdout
copy 
Digite o tamanho do vetor A (m):
Digite o tamanho do vetor B (n):
Digite os elementos do vetor A:
Digite os elementos do vetor B:
Vetor C (soma de A e B):
4 4
https://ideone.com/qKk4VN
language:
Ada95 (gnat 8.3)
created:
4 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!