//прога на Pascal`e
var
a : array[1..10] of shortint;
i, count, sum : byte;
begin
randomize;
write ('Сформированный массив: ');
for i:=1 to 10 do
begin
a[i]:=random (20);
write (a[i], '; ');
inc (sum, a[i]);
end;
writeln ();
write ('Кол-во элементов массива, значение которых превышает СА: ');
for i:=1 to 10 do
if a[i]>(sum/10) then inc (count, 1);
write (count);
end.
MM !!! :-) legho очень легко ММ
600+2049+4096+4508=11253
11253:2048=5.4 Примерно.
Нужно 6 кластеров для хранения всех четырёх файлов.
program summa;
var a,b,c,d,s:integer;
begin
write('Введите первое число: ');
readln(a);
write('Введите второе число: ');
readln(b);
write('Введите третье число: ');
readln(c);
write('Введите четвертое число: ');
readln(d);
s:=a+b+c+d;
write('Сумма равна: ',s);
end.
1 столбик разделительный Ъ знак
съел, подъем
2 столбик разделительный Ь знак
вьёт, семья
3 столбик Ь знак для смягчения(сомневаюсь в формулировке)
мальчик, тетрадь