Компьютер мой Компьютер в нём столько знаний сколько нет даже в 100 людях ! Я в нём могу найти сколько будет 2 на 2 и 6+6 и сколько будет весить 5 бананов и крокодил ! Какой цвет подходит другому вобщем компьютер я люблю ! можешь отредактировать как хочешь ;)
Мы живем в двадцать первом веке. Это век передовых технологий и научно-технического прогресса. Смело можно сказать, что сейчас у большинства молодежи имеются компьютеры и различная современная техника. Многие задаются вопросом : служит ли компьютер или наоборот влияет негативно на нашу жизнь? Я определенно могу ответь, что для меня, компьютер является Во-первых, там я могу достать всю необходимую информацию не выходя из дома. Во-вторых, постоянно узнаю новые события о своей стране, о зарубежных государствах да в различных сферах деятельности. В третьих, компьютер служит отличным развлекательным гаджетом отвлечься от бытовых проблем. Я хочу сказать, что компьютер на самом деле - вещь необходимая и нужная. Главное, уметь им пользоваться. Только от вас зависит, будет вредить он вам или
Const n=7; type V=array[1..n] of real; procedure mReplace(t:real;var a:V;var k:integer); var i:integer; begin k:=0; for i:=1 to n do if a[i]<t then begin a[i]:=t; Inc(k) end end;
var T:real; i,k1,k2:integer; P,C:V; begin Write('Введите значение T: '); Read(T); Writeln('Введите элементы массива P'); for i:=1 to n do Read(P[i]); Writeln('Введите элементы массива C'); for i:=1 to n do Read(C[i]); mReplace(T,P,k1); mReplace(T,C,k2); if k1>k2 then begin Writeln('Измененнный массив Р'); for i:=1 to n do Write(P[i],' ') end else if k2>k1 then begin Writeln('Измененнный массив C'); for i:=1 to n do Write(C[i],' ') end else Writeln('Число замен в массивах равно ',k1) end.
Тестовое решение: Введите значение T: 0.005 Введите элементы массива P 0.001 1.54 -2.75 0.002 -0.1 1.2 -0.47 Введите элементы массива C -5.74 0.0001 4.1 7.24 -1.5 2.9 0.004 Измененнный массив Р 0.005 1.54 0.005 0.005 0.005 1.2 0.005
Компьютер в нём столько знаний сколько нет даже в 100 людях ! Я в нём могу найти сколько будет 2 на 2 и 6+6 и сколько будет весить 5 бананов и крокодил ! Какой цвет подходит другому вобщем компьютер я люблю !
можешь отредактировать как хочешь ;)