const n=10;
var a:array[1..n] of integer;
i,r: integer;
begin
write (' Исходный массив: ');
for i:=1 to n do
begin
a[i]:=random(41)-20;
write (a[i]:3,' ')
end;
writeln;
write ('Введите число: ');
readln (r);
write ('Преобразованый массив: ');
for i:=1 to n do
begin
if abs(a[i]) <= r then a[i]:=a[i]*a[i];
write (a[i]:3,' ')
end
end.
Так они интуитивно переключаются. Т.е. для более сложных задач включается одна видеокарта, для простых - другая. (Надеюсь, объяснила)
Не понял я твоего вопроса, но вот то, что получилось у меня:
Игровые приставки очень вредят организму человека, во-первых играя в них портиться зрение, во-вторых когда вы играете в видео-игры они действуют на ваше психическое состояние, так как в играх содержатся сцены насилия, убийств. Но есть и познавательные игры для детей, в которых вы можете научиться многому и узнать о различных факторах человека или о строение его организма.
В компьютер, игровые приставки разрешено играть не больше 1 часа, так как они могут повредить ваше зрение, а так же сидя за компьютером нельзя близко прислоняться к его манитору.
Количество слогов считаем по количеству гласных букв в слове.
Program pr;
uses crt;
var str,s: string;
a,i,j,len,k,kslog: byte;
Begin
Writeln('Введите предложение');
readln(str);
Writeln('Введите кол-во слогов');
readln(k);
Writeln('Слова с ',k,' слогами:');
Writeln;
len:=length(str);
a:=0;
kslog:=0;
for i:=1 to len do
Begin
if (str[i] = ' ') then
Begin
s:=copy(str,i+1,a);
for j:=1 to length(s) do
Begin
if s[j] in ['А','О','У','Э','Ы','Я','Ё','Ю','Е','И','а','о','у','э','ы','я','ё','ю','е','и'] then inc(kslog);
end;
if (k=kslog) then Writeln(s);
kslog:=0;
a:=0;
end
else a:=a+1;
end;
Writeln;
Writeln('Для завершения программы нажмите Enter');
readln;
end.<span> </span>