program 1; var a:array[1..10] of integer; i,q,max,min,l,k:integer; begin randomize; for i:=1 to 10 do begin a[i]:=random(100); write(a[i]:3); end; writeln; for i:=1 to 10 do if (a[i]>q) and (a[i]<l) then inc(k); writeln('k=',k); end.
2.
program 2; var a:array[1..10] of integer; i,max,min,k,l:integer; begin randomize; for i:=1 to 10 do begin a[i]:=random(100); write(a[i]:3); end; writeln; max:=a[1]; min:=a[1]; for i:=2 to 10 do begin if a[i]>max then begin max:=a[i]; k:=i; end; if a[i]<min then begin min:=a[i]; l:=i; end; end; writeln('max=',max,', его индекс=',k,', min=',min,', его индекс=',l); end.
Запись файла любого типа и использование диска на компьютере с Windows XP или более поздней версией.Диск: CD-R, CD-RW, DVD-R, DVD-R DL, DVD+R, DVD+R DL, DVD-RW, DVD+RW или DVD-RAMФормат: файловая система LFSЗапись файла любого типа и использование диска на любом компьютере, где могут быть установлены версии Windows, более ранние, чем Windows XP.Диск: CD-R, CD-RW, DVD-R, DVD-R DL, DVD+R, DVD+R DL, DVD-RW, DVD+RW или DVD-RAMФормат: MasteredЗапись файла любого типа и использование диска на компьютере с Windows Vista или более поздней версией.Диск: CD-R, CD-RW, DVD-R, DVD-R DL, DVD+R, DVD+R DL, DVD-RW, DVD+RW, DVD-RAM, BD-R или BD-REФормат: файловая система LFS или MasteredЗапись музыки или изображений и использование диска на некоторых обычных проигрывателях компакт-дисков, DVD-дисков или дисков Blu-ray, воспроизводящих МР3-файлы и цифровые изображения.Диск: CD-R, CD-RW, DVD-R, DVD+R, DVD-RW или DVD+RWФормат: MasteredЗапись музыки и изображений и использование диска на любом компьютере, где могут быть установлены версии Windows, более ранние, чем Windows XP.Диск: CD-R, CD-RW, DVD-R, DVD+R, DVD-RW или DVD+RWФормат: MasteredВозможность многократного добавления и стирания одного или множества файлов (как в случае использования USB-устройства флэш-памяти) и использование диска на компьютерах с Windows XP или более поздней версией.Диск: CD-R, CD-RW, DVD-R, DVD-R DL, DVD+R, DVD+R DL, DVD-RW, DVD+RW или DVD-RAMФормат: LFSВозможность многократного добавления и стирания одного или множества файлов (как в случае использования USB-устройства флэш-памяти) и использование диска на компьютерах с Windows 7.Диск: CD-R, CD-RW, DVD-R, DVD-R DL, DVD+R, DVD+R DL, DVD-RW, DVD+RW, DVD-RAM, BD-R или BD-REФормат: файловая система LFSНахождение диска в устройстве записи компьютера, копирование на него файлов, например, для резервного храненияДиск: CD-R, CD-RW, DVD-R, DVD-R DL, DVD+R, DVD+R DL, DVD-RW, DVD+RW, DVD-RAM, BD-R или BD-REФормат: файловая система LFS
программу написала в паскале, надеюсь подходит))
program 1;
var a:array[1..10] of integer; i,q,max,min,l,k:integer;
begin
randomize;
for i:=1 to 10 do
begin
a[i]:=random(100);
write(a[i]:3);
end;
writeln;
for i:=1 to 10 do
if (a[i]>q) and (a[i]<l) then inc(k);
writeln('k=',k);
end.
2.
program 2;
var a:array[1..10] of integer; i,max,min,k,l:integer;
begin randomize;
for i:=1 to 10 do
begin
a[i]:=random(100);
write(a[i]:3);
end;
writeln;
max:=a[1];
min:=a[1];
for i:=2 to 10 do
begin
if a[i]>max then
begin max:=a[i]; k:=i; end;
if a[i]<min then
begin min:=a[i]; l:=i; end;
end;
writeln('max=',max,', его индекс=',k,', min=',min,', его индекс=',l);
end.