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.
Как называется программа?
ответ: cup_of_tea
Запишите какой тип переменных используется в программе.
ответ: real
Запишите названия используемых переменных.
ответ: a, b, c, y , x
В какой строке программа получает данные от пользователя? Напишите номер строки
ответ: 5) readln(a,b,c);
Что будет выведено на экран, если пользователь введет значения: 6, 9, 3
ответ: 1.8
Объяснение:
Вы ввели неверный код, это может быть:
program cup_of_tea;
var a, b, c, y , x: real;
begin
, введите три числа');
readln(a,b,c);
y:=a;
if b>y then y:=b;
if c>y then y:=c;
if (a>b) or (a>c) then x:=a;
if (b>a) or (b>c) then x:=b;
if (c>a) or (c>b) then x:=c;
writeln (y+x);
end.
