program noname;
uses crt;
var
a:array[1..100] of integer;
i,n,k:byte;
begin
clrscr;
for i:=1 to 20 do begin
randomize;
a[i]:=random(100)-50;;
write(a[i],' ');
if (a[i] mod 2=0) and (a[i]<>0) then k:=i;
end;
n:=0;
for i:=1 to k do
if a[i]<0 then n:=n+1;
writeln;
writeln(k,'-номер последнего четного');
writeln(n,'-число отрицательных элементов до ', a[k])
end.
создание документа, ввод текста,рецензирование текста, редактирование текста,форматирование текста,сохранение документа, печать документа.
Program TxtManipula;
uses crt;
var txt:string;
begin Writeln('Введите строку');
Readln(txt);
Writeln('Длина строки:',length(txt));
Insert('о',txt,2);
Writeln(txt);
Delete (txt.length(txt),1);
Writeln(txt);
Readln();
<span>end.
PS: скомпилированный файл TxtManipula.exe в архиве, это вставленный документ ворд. Просто поменяй расширение docx на zip.</span>
Опредилить основания классификаций:а)ель,сосна,кедр,пихта/берёза,осина,липа,тополь;б)рожь,тишь,ложь,рысь/пшеница,тишина,истина,к
Alx2040 [567]
А) хвойные/лиственные деревья
б) существительные женского рода 3 / 1 склонения
в) одежда / верхняя одежда
г) дикие / домашние животные