56600:1000=56.6
ответ: модем передаст 56.6 да минуту
1.
const
stroki = 10000;
stolbci = 10000;
type
matrix = array[1..stroki, 1..stolbci]of integer;
procedure vvod(var a: matrix; m, n: integer);
var
i, i1: integer;
begin
for i := 1 to m do
begin
write(' ');
for i1 := 1 to n do
read(a[i, i1]);
end;
end;
var
a: matrix;
m, n, i, j, kol: integer;
begin
kol := 0;
readln(n, m);
vvod(a, n, m);
for i := 1 to n do
for j := 1 to m do if a[i, j] = 7 then kol += 1;
writeln(kol);
end.
2.
var
a, b, c: array[0..14] of integer;
i, max, min, sum: integer;
begin
sum := 0;
min := 100;
max := 0;
for i := 0 to 14 do
begin
randomize;
a[i] := 10 + random(1 + 30 - 10);
b[i] := 10 + random(1 + 30 - 10);
c[i] := a[i] + b[i];
if c[i] > max then max := c[i]
else if c[i] < min then min := c[i];
sum += c[i];
end;
writeln(max);
writeln(min);
writeln(round(sum / 15));
end.
У меня получилось m=-4, k=10
Просто подставляй значения и проверяй условие, если условие верно то m будет=значению Д под этим номером.
1)Берем Д(1)=6 проверяем 6 меньше 2*6 ДА
m присваиваем значение Д(1),т.е 6
2)Берем Д(2)=-1 Сравниваем -1 меньше 2*6 ДА
<span>m присваиваем значение Д(2),т.е -1 и Т,Д до конца</span>
Изменил... теперь нормально все.
uses graphabc,crt;
var i:integer; h:real;
begin
randomize;
rectangle(280,130,320,320);
rectangle(250,10,350,260);
circle(300,55,35);
circle(300,135,35);
circle(300,215,35);
for i:=1 to 1000 do
begin
floodfill(300,55,clred);
delay(3000);
floodfill(300,55,clwhite);
delay(1000);
floodfill(300,135,clyellow);
delay(3000);
floodfill(300,135,clwhite);
delay(1000);
floodfill(300,215,clgreen);
delay(1000);
floodfill(300,215,clwhite);
delay(1000);
end;
end.
Program prog;
uses crt;
var a: array [1..10] of integer;
i,k: integer;
begin
clrscr;
randomize;
k:=0;
for i:=1 to 10 do
begin
a[i]:=random(100)-50;
writeln ('a[',i,'] = ', a[i]);
if a[i]>0 then inc(k);
end;
writeln;
write('K = ', k);
end.