Παρασκευή 5 Δεκεμβρίου 2014

Δευτέρα 1 Δεκεμβρίου 2014

program prosthesi_pinakon;
var
A,B,C,D:array[1..5] of integer;
i:integer;
begin
    writeln('ΠΙΝΑΚΑΣ Α');
for i:=1 to 5 do
 begin
  writeln('Δώσε το ',i,'ο στοιχειο του πίνακα A');
  readln(A[i]);
 end
    ;
    writeln('ΠΙΝΑΚΑΣ B');
    for i:=1 to 5 do
 begin
  writeln('Δώσε το ',i,'ο στοιχειο του πίνακα B');
  readln(B[i]);
 end
    ;
    writeln('ΠΙΝΑΚΑΣ C');
    for i:=1 to 5 do
 begin
  C[i] := A[i] + B[i];
  writeln('Το άθροισμα του ',A[i],' και του ', B[i],' είναι ',C[i]);
      end
    ;
    writeln('ΠΙΝΑΚΑΣ D');
    for i:=1 to 5 do
 begin
  D[i] := A[i] + C[i];
  writeln('Το άθροισμα του ',A[i],' και του ', C[i],' είναι ',D[i]);
      end
    ;
end.

Ερωτήσεις για την Πιστοποίηση - Παλιές
Ρίξτε μια ματιά ... και δυο!!!!