Ответ:
var i,k:integer;
a:array [1..8] of integer;
begin
write('Массив');
for i:=1 to 8 do
begin
a[i]:=random (75)-50;
write(a[i]:4);
if (a[i]<13) and (a[i] mod 8 = 0 ) then k:=k+1
end;
writeln;
writeln('Количество элементов, меньших 13 и кратных 8 равно ',k);
end.
Ответ:
5.1 Минимальное количество учителей 3. На втором уроке идут занятия в 3 классах (9а, 10а и 10б).
5.2 У 9а, 9б, 10б и 11б оставить занятия без изменений. Занятия 10а перенести на 3 и 4 урок (вместо 2 и 3 урока) и занятия 11а перенести на 5 и 6 уроки (вместо 4 и 5 урока). Тогда первый учитель будет вести уроки в 9а, 9б и 11б, а второй - в 10а, 10б и 11а.
5.3 Иванов будет вести уроки в 9а, 9б и 11б. Петров в 10а и 11а. Сидоров в 10б.
5.4 Иванов будет вести уроки в 9а и 9б. Петров в 10а и 11а. Сидоров в 10б и 11б.
6 Узловым является сервер С4. Он связан со всеми остальными серверами (на пересечении с ним везде стоит 1).
Где только находят такие задачи О_о ну вот :)
uses crt;
type auto=record
nom:string;
sht:integer;
end;
var f,g:text;
a:array[1..100] of auto;
s,s1:string;
n,k,i,j,c,p,r:integer;
x:auto;
begin
clrscr;
assign(f,'input.txt');
reset(f);
assign(g,'output.txt');
rewrite(g);
read(f,n);
readln(f,s);
readln(f,s);
k:=1;
a[k].nom:=copy(s,1,8);
delete(s,1,9);
val(s,a[k].sht,c);
for i:=2 to n do
begin
readln(f,s);
s1:=copy(s,1,8);
delete(s,1,9);
val(s,r,c);
p:=0;
j:=1;
while(j<=k) and(p=0) do
if s1=a[j].nom then
begin
p:=j;
a[p].sht:=a[p].sht+r
end
else j:=j+1;
if p=0 then
begin
k:=k+1;
a[k].nom:=s1;
a[k].sht:=r;
end;
end;
close(f);
for i:=1 to k-1 do
for j:=i+1 to k do
if a[i].sht<a[j].sht then
begin
x:=a[i];
a[i]:=a[j];
a[j]:=x;
end;
for i:=1 to k do
begin
writeln(g,a[i].nom,' ',a[i].sht);
writeln(a[i].nom,' ',a[i].sht);
end;
close(g);
end<span>.</span>
4) Сенсорный экран является и устройством ввода и устройством вывода одновременно.
1) х=2
х=2*2=4
х=4*4*2=32
2) у=32-5=27