Забравена парола

Език

Български    Английски

Реклами




Съобщи за грешка !
Добави търсачка

Валиден XHTML 1.1 Валиден CSS 2.1
Powered by PHP Powered by MySQL
Pascal емулатор
1 потребител(и) online
Контрол на шрифта Принтирай  Текущ език: Pascal

Упражнения://Редене на код


За да решите задачата е нужно чрез мишката да разместите кода, докато получите работеща програма.

Условие на задачата:
Оценките на 25 ученика от 11в клас от контролно по информатика се съхраняват в масив A. Напишете програма, която извежда колко ученика имат оценка „Слаб”, колко „Среден”, колко „Добър”, колко „Много добър” и колко „Отличен”.


  • writeln('6 - ', o6);
  • for i:= 1 to 20 do
  • readln(A[i])
  • end.
  • else
  • end;
  • else o6:=o6+1;
  • o2, o3, o4, o5, o6 : byte;
  • if A[i]<4.50 then o4:=o4+1
  • if A[i]<5.50 then o5:=o5+1
  • write('Enter A[',i,">=');
  • i : byte;
  • if A[i]<3.50 then o3:=o3+1
  • for i := 1 to 20 do
  • writeln('3 - ', o3);
  • if A[i]<2.50 then o2:=o2+1
  • begin
  • until (A[i]>=2)and(A[i]<=6)
  • writeln('5 - ', o5);
  • else
  • var A : array[1..25] of real;
  • writeln('4 - ', o4);
  • begin
  • else
  • repeat
  • writeln('2 - ', o2);