fork 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 Q5E is
  5.    N : Integer;
  6.    A, B : array (1 .. 100) of Integer; -- Tamanho máximo dos vetores
  7.    Produto_Inteiro : Integer := 0; -- Inicializa o produto interno
  8.    I : Integer;
  9.  
  10. begin
  11.    -- Leitura do tamanho dos vetores
  12.    Put_Line("Digite o tamanho dos vetores (n):");
  13.    Get(N);
  14.  
  15.    -- Leitura do vetor A
  16.    Put_Line("Digite os elementos do vetor A:");
  17.    for I in 1 .. N loop
  18.       Get(A(I));
  19.    end loop;
  20.  
  21.    -- Leitura do vetor B
  22.    Put_Line("Digite os elementos do vetor B:");
  23.    for I in 1 .. N loop
  24.       Get(B(I));
  25.    end loop;
  26.  
  27.    -- Cálculo do produto interno
  28.    for I in 1 .. N loop
  29.       Produto_Inteiro := Produto_Inteiro + (A(I) * B(I));
  30.    end loop;
  31.  
  32.    -- Exibição do resultado
  33.    Put_Line("Produto interno: " & Integer'Image(Produto_Inteiro));
  34. end Q5E;
  35.  
Success #stdin #stdout 0s 5284KB
comments (?)
stdin
copy 
2
2
2
2
2
1
0
0
1
stdout
copy 
Digite o tamanho dos vetores (n):
Digite os elementos do vetor A:
Digite os elementos do vetor B:
Produto interno:  8
https://ideone.com/rfzFcZ
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!