Vara,b,c,i:longint;
m:array[1..1000] of longint;
Begin
c:=0;
readln(a);
readln(b);
for i:=1 to b do
begin
read(m[i+c]);
if (m[i+c]<0) and (c=0) then
begin
m[i+1]:=a;
c:=1;
end;
end;
for i:=1 to b+1 do
write(m[i],' ');
<span>End.</span>
Правильные ответы: является съедобность отметь мой ответ как самый лучший.
Первый столбик xxx.yyy xxx (до точки - имя файла), ууу (после точки - расширение). второй столбик - размер файла в байтах, третий столбик - тип файла (*.GIF - графический файл, *.doc - текстовый документ Word, *.xls - табличный документ Excel, *.com, *.exe - обычно исполняемые файлы программ
Получается следующее уравнение при вашем условии:
<span>E8=$А$5*В5</span>
задай var x,y:real;
так как в формуле есть деление.