Pascal
const
n=25;
var
a:array[1..n] of integer;
i, s0, s1, s2, s3 : integer;
begin
randomize;
s0:=0; s1:=0; s2:=0; s3:=0;
for i:=1 to N do begin
a[i]:=random(5)+1; (*если хотим ввести случайные оценки*)
// readln(a[i]); (*если хотим ввести оценки сами*)
s0:=s0+a[i];
case a[i] of
4,5: inc(s1);
3: inc(s2);
1,2: inc(s3);
end;
end;
writeln(a);
writeln('Средний бал =', s0/n);
writeln('Кол-во 4 и 5 =', s1);
writeln('Кол-во 3 =', s2);
writeln('Кол-во 2 и 1 =', s3);
end.
Поделитесь своими знаниями, ответьте на вопрос:
Вычислить расстояние между двумя точками с координатами (х1, у1) и (х2, у2)
#include <cmath>
#include <iostream>
int main()
{
float x1, x2, y1, y2;
std::cin >> x1 >> y1;
std::cin >> x2 >> y2;
std::cout << "Расстояние = " << sqrt(pow(x2 - x1, 2) + pow(y2 - y1, 2)) << std::endl;
}