===== PascalABC.NET =====
begin
var r := ArrFill(5, 0);
foreach var Ball in ReadSeqIntegerWhile(p -> p <> 0) do
r[Ball-1] += 1;
Writeln('Не явились:', r[0], ' не сдали:', r[1],
' cдали:', r[2] + r[3] + r[4])
end.
1) program n_1;
var a:array[1..100] of integer;
i, n:integer;
begin
writeln('Введите кол-во элементов');
readln(n);
for i:=1 to n do
begin
a[i]:=random(450)+250;
writeln(a[i],' ');
end;
end.
Устройства ввода информации обеспечивают ввод информации
Для ввода и вывода информации.
Клавиатура-устройство ввода,
Монитор-устройство вывода.
Визуализация вывод информации на
Принтер
Ответ:
а = 12
Объяснение:
1). в = 4
2). а = 4 / 2 * 6 = 2 * 6 = 12