Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  array
Language: PASCAL
Code:
program jmena;
uses crt;
var
jmeno:array[1..4] of string;
vek:array[1..4] of integer;
sum:integer;

begin clrscr;
  writeln('Zadejte jmeno.');
 readln(jmeno[1]);
 writeln('Zadejte vek.');
 readln(vek[1]);
 writeln('Zadejte jmeno.');
 readln(jmeno[2]);
 writeln('Zadejte vek.');
 readln(vek[2]);
 writeln('Zadejte jmeno.');
 readln(jmeno[3]);
 writeln('Zadejte vek.');
 readln(vek[3]);
 writeln('Zadejte jmeno.');
 readln(jmeno[4]);
 writeln('Zadejte vek.');
 readln(vek[4]);

writeln(jmeno[1],' - ', vek[1]);
writeln(jmeno[2],' - ', vek[2]);
writeln(jmeno[3],' - ', vek[3]);
writeln(jmeno[4],' - ', vek[4]);

sum:=0;
sum:= vek[1] + vek[2] + vek[3] + vek[4];

writeln('Prumerny vek je ', sum div 4, '.');

end.     
Comments: