4. http:// - протокол
5. ftp://www.net.ru/http.txt (ВАЖГЕБД)
6. 192.153.25.62 (ГБВА)
далее idk
Можно заменить на
read(x1,y2,x3,x4);
1)
var a: array [1..40] of integer;
i, s1, s2: integer;
begin
for i := 1 to 40 do
begin
a[i] := random(20);
writeln('a[', i, '] => ', a[i]);
if (a[i] mod 2 = 1) then
begin
s1 := s1 + a[i];
inc(s2);
end;
end;
writeln(s1 / s2);
<span>end.
2)
var a: array [1..40] of integer;
i, q: integer;
begin
for i := 1 to 40 do
begin
a[i] := random(20);
writeln('a[', i, '] => ', a[i]);
if (a[i] <= 10) then q := q + a[i];
end;
writeln(q);
<span>end.
3)
var a: array [1..40] of integer;
i, w: integer;
begin
for i := 1 to 40 do
begin
a[i] := random(20);
writeln('a[', i, '] => ', a[i]);
if (a[i] mod 3 = 0) then w := w + a[i];
end;
writeln(w);
<span>end.</span></span></span>
Ответ : Страны на континенте америка
Помогите пожалуйста-20,,,,,,,,,,,
Dreammer [7]
Const
n=16;
var
a:array[1..n] of integer;
i,k:integer;
begin
for i:=1 to n do
a[i]:=0;
while True do
begin
read(k);
if (k<1) or (k>n) then break;
Inc(a[k]);
end;
k:=1;
for i:=2 to n do
if a[i]>a[k] then k:=i;
Writeln(k)
end.
Вводим пока не будет указано значение меньше 1 или больше 16.