Регистрация
сельджан2
19.11.2022 06:48
Информатика
Есть ответ 👍

Найти средний рост 32 учеников . нужно написать программу!

284
331
Посмотреть ответы 2

Ответы на вопрос:

Диля175
Диля175
4,7(39 оценок)
Var mas: array[1..32] of real; i,k: integer; sum: real; begin for i: = 1 to 32   do  begin write('введите рост ',i,' ученика');   readln(mas[i]) end; writeln; sum: =0; k: =0; for i: = 1 to 32 do  begin sum: =sum+mas[i]; k: =k+1 end; write(sum/k) end.
egorbychkov83
egorbychkov83
4,5(30 оценок)
Никогда не писала что-либо с использованием графики, но, скорее всего, программа выглядит следующим образом: uses  graphabc; var  x0, y0, x1, y1: integer; begin          setwindowsize(400, 400); //устанавливаем размер окна      x0 : = windowwidth; //ширина окна      y0 : = windowheight; //высота окна          setfontcolor(clred); //устанавливаем цвет текста      textout(0, 0, 'сергей'); //надпись в левом верхнем углу            x1 : = windowwidth div 2; //половина ширины окна      y1 : = windowheight div 2; //половина высоты окна          setfontcolor(clblue);       textout(x1, y1, 'сергей'); //надпись посередине          setfontcolor(clyellow);       textout(0, y0, 'сергей'); //надпись в левом нижнем углу      setfontcolor(clpurple);     textout(x0, 0, 'сергей'); //надпись в правом верхнем углу          setfontcolor(clgreen);       textout(x0, y0, 'сергей'); //надпись в правом нижнем углу end.программа была написана   в pascal abc.net. , проверьте, работает ли она в вашем pascal.

Популярно: Информатика