fork download
copy 
  1. program pr1;
  2. const N=3;
  3. var s,i:integer;
  4. var a:array [1..8] of integer;
  5. begin
  6.  for i:=1 to 8 do
  7.  begin
  8.    write('Введите ',i,' число: ');
  9.    readln(a[i]);
  10.  end;
  11.  for i:=1 to 8 do
  12.  begin
  13.    s:=s+a[i];
  14.  end;
  15.  writeln('Сумма элементов ',s);
  16. end.
Success #stdin #stdout 0s 5308KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Введите 1 число: Введите 2 число: Введите 3 число: Введите 4 число: Введите 5 число: Введите 6 число: Введите 7 число: Введите 8 число: Сумма элементов 0
https://ideone.com/uNeLDF
language:
Pascal (fpc 3.0.4)
created:
6 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!