написать программу выдающую след инф:средний балл полученный студентом и всей его группой в целом(poscal)

+ 0 -

Naqirol

10 сент. 2016 г., 19:21:11 (7 лет назад)

фух задолбаюсь конечно писать))

Program name;
uses crt;
var x,y,k:integer;
s:real;
begin
clrscr;
y:=0
k:=0
while x>0 do;
begin
writeln(`введите одну оценку студента. если оценки кончились поставьте 0`);
readln(x)
y:=y+x;
k:=k+1;
end;
s:=y/k;
writeln(s);
readkey;
end.


я уверен что это правильно но эта программа ток для одного студента. если нужно для всей группы искать тоже то легче для неё отдельно точно такую же прогу составить но вместо пояснения в первом врайтлн написать нужно не про оценку а про введите средний балл каждого студента. если студенты кончились ставьте ноль,

а если нужно все уместить в одном то добавляешь ещё 3 переменные интеджер и 1 в Реал и после врайтлн(s) пишешь заново с другими переменными. ну заново это со слова Бегин ток его не пиши)