program third_program_with_arrays;
var
i,sum:integer;
ONOMA:array[1..5] of string;
BATH:array[1..5] of integer;
MO:real;
begin
for i := 1 to 5 do
begin
writeln('Δώσε το όνομά σου');
readln(ONOMA[i]);
writeln('Δώσε το βαθμό που πήρε στην Pascal ');
readln(BATH[i]);
end
;
for i:=1 to 5 do
begin
writeln(ONOMA[i]:10, ' ', BATH[i]);
if BATH[i]>10 then
begin
writeln('Μπράβο καλέ μαθητή/τριά πέρασες');
end
else
begin
writeln('Είσαι άχρηστος/η δεν θα προκόψεις στη ζωή σου');
end;
end
;
writeln('Ο συνολικός Μ.0 της τάξης σου είναι');
sum:=0;
for i:=1 to 5 do
begin
sum:=sum+BATH[i];
end
;
MO:=sum/5;
writeln(MO);
end.
var
i,sum:integer;
ONOMA:array[1..5] of string;
BATH:array[1..5] of integer;
MO:real;
begin
for i := 1 to 5 do
begin
writeln('Δώσε το όνομά σου');
readln(ONOMA[i]);
writeln('Δώσε το βαθμό που πήρε στην Pascal ');
readln(BATH[i]);
end
;
for i:=1 to 5 do
begin
writeln(ONOMA[i]:10, ' ', BATH[i]);
if BATH[i]>10 then
begin
writeln('Μπράβο καλέ μαθητή/τριά πέρασες');
end
else
begin
writeln('Είσαι άχρηστος/η δεν θα προκόψεις στη ζωή σου');
end;
end
;
writeln('Ο συνολικός Μ.0 της τάξης σου είναι');
sum:=0;
for i:=1 to 5 do
begin
sum:=sum+BATH[i];
end
;
MO:=sum/5;
writeln(MO);
end.
Δεν υπάρχουν σχόλια:
Δημοσίευση σχολίου