1) program gt; var a,b:array[1..100]of integer; n,m,i:longint; begin Randomize; a[5]:=-20; for i:=1 to 8 do begin if(i<5)then a[i]:=random(101)+100; if(i>4)then a[i+1]:=random(101)+100; end; for i:=1 to 9 do begin write(a[i],' '); end; end. 2) program gt; var a,b:array[1..100]of integer; n,m,i,max:longint; begin Randomize; max:=-20; for i:=1 to 8 do begin a[i]:=random(101)+100; if(a[i]>max)then max:=a[i]; end; for i:=1 to 8 do begin if(a[i]<>max)then write(a[i],' '); if(a[i]=max)then write(0,' ',a[i],' '); end; end.
Александрович Владимирович
11.12.2021
В современном мире без компьютера как без рук. Это все равно что есть суп вилкой медленно , и некомфортно. Homosapiens XXI века должен быть не только умным, но и коммуникабельным.Такое чудо техники как планшет сейчас не является чем-то ограниченным ( в плане производства). Он имеет множество функций которые улучшают , облегчат и сделают мою жизнь , жизнь современного ученика более удобным и коммуникабельным.Мне нужен планшет в первую очередь для обучения. Он прост в использовании , поэтому и удобнее. Эта вещь удобная и не занимает много места , а благодаря компактности ней можно пользоваться где угодно. Поскольку я пользуюсь стационарным ПК , и нет возможности приобрести планшет , я считаю , что имею меньшие возможности для работы с информацией.Конечно любой ПК дает возможности для работы , но они , по моему мнению , являются меньшими по сравнению с планшетом .С таким портативным устройством я иметь возможности для более удобного распространения и поиска информации , которая мне необходима в обучении .В будущем я стану студенткой (сейчас я ученица 11 класса ) . Поэтому необходимы учебники я бы смогла хранить в таком планшетном компьютере . Я думаю это удобнее чем носить 5-7 книг в портфеле. Имея планшетный компьютер я смогу пользоваться им персонально , и все хлопоты , связанные с неудобствами в пользовании домашним ПК исчезнут. Планшет значительно облегчит мою работу над исследованиями , докладами , и семинарами в будущем. А сейчас я буду иметь возможность доступа к новой версии программного обеспечения которое предоставит планшетный компьютер , потому что до сих пор работала с Microsoft Office 2003-2007.Я призер олимпиад по информационным технологиям . Поэтому такая вещь в будущем и теперь , когда я планирую связать свою профессию с ИТ , мне просто необходима.Новые технологии - это шаг вперед , шаг в будущее !
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Акак мне ввести строку через scanf в структуру язык си
program gt;
var a,b:array[1..100]of integer;
n,m,i:longint;
begin
Randomize;
a[5]:=-20;
for i:=1 to 8 do
begin
if(i<5)then a[i]:=random(101)+100;
if(i>4)then a[i+1]:=random(101)+100;
end;
for i:=1 to 9 do
begin
write(a[i],' ');
end;
end.
2)
program gt;
var a,b:array[1..100]of integer;
n,m,i,max:longint;
begin
Randomize;
max:=-20;
for i:=1 to 8 do
begin
a[i]:=random(101)+100;
if(a[i]>max)then max:=a[i];
end;
for i:=1 to 8 do
begin
if(a[i]<>max)then write(a[i],' ');
if(a[i]=max)then write(0,' ',a[i],' ');
end;
end.