Const n=10;var a:array [1..n] of integer;i,max:integer;beginrandomize;for i:=1 to n dobegina[i]:=random(100);writeln(a[i]);end;max:=0;for i:=1 to n dobeginif a[i]>max then beginmax:=a[i];end;end;writeln('Max = ',max);end.

0 0

4 года назад

Запишите полное имя файла Книга1.xls,расположенного на диске C: в папке 8klass подкатолога 8-2013.

SokolovVitek [58]

C/8klass/8-2013/книга1.xls

0 0

4 года назад

128байт перевести в биты и кб

Sacred [1.8K]

В биты помню это 128 байт=1024 бит
а вот в кб не помню

0 0

4 года назад

Прочитать ещё 2 ответа

Дан одномерный массив B из N элементов, значения которых находятся в диапозоне от 0 до 325. 1) Заменить все чётные элементы на и

Ancha-anka [31]

1) program X;
var
B:array [0..325] of integer;
i,g,n:integer;
Begin
write ('Введите количество элементов массива = ');
read(n);
For i:= 1 to n do
Begin
B[i]:= -10+random(25);
write (B[i]:4);
end;
writeln;
writeln('новый массив');
begin
   for i:=1 to n do
if B[i] mod 2=0    then
begin
g:=i;
B[i]:=g;
write (B[i]:4);
end;
end;<span>
End.

2) </span>program X;
var
B:array [0..325] of integer;
i,g,n:integer;
Begin
write ('Введите количество элементов массива = ');
read(n);
For i:= 1 to n do
Begin
B[i]:= -10+random(25);
write (B[i]:4);
end;
writeln;
writeln('новый массив');
begin   for i:=1 to n do
if (B[i] mod 2=0) and (i mod 2<>0)
then
begin
g:=i;
B[i]:=g;
write (B[i]:4);
end;
end;<span>
End.</span>

0 0

4 года назад