1)тест1.doc
Тест.doc
2)с:\games\happy\pacman.exe
3)c:\pictures\foto\весна.jpg
4)столбец, абзац, строка
5)редактирования
Перевод из Килобайт в Байт происходит следующим образом:
Количество Килобайт умножается на количество Байт, содержащихся в одном Килобайте.
<h3>1 Килобайт = 1024 Байт</h3>
456 Килобайт = 456 · 1024 = 466944 Байт
897 Килобайт = 897 · 1024 = 918528 Байт
<h2>Ответ</h2>
466944; 918528
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := SeqRandom(10000, -10, 10).Where(t -> t.IsEven)
.Take(15).ToArray;
a.Println;
a.Where(t -> t < 0).Count.Println;
a.Transform(t -> t < 0 ? 0 : t);
a.Println
end.
<h2>Пример</h2><h3>-6 10 2 4 -2 -4 2 2 10 -10 -6 -8 -8 2 -6</h3><h3>8 </h3><h3>0 10 2 4 0 0 2 2 10 0 0 0 0 2 0</h3>
Uses crt;
Var
mas:array[1..10, 1..10] of integer;
i,k,minln,pr:integer;
Begin
minln:=0;
for i:=1 to 10 do
for k:=1 to 10 do
mas[i,k]:=random(10)+1;
for i:=1 to 10 do begin if minln>0 then break; pr:=0;
for k:=1 to 10 do begin if (mas[i,k] mod 2 = 0) then pr:=pr+1;
if (pr = 10) then minln:=i;
end; end;
Writeln('Минимальный номер строки с чётными числами - ',minln);
Writeln('Вот она');
for k:=1 to 10 do write (mas[minln,k],' ');
<span>End.</span>
Я думаю что: 4,5,7,8,12
Ну я так понял)