В 21-м веке программы стали неотъемлемой частью почти всех людей в мире. В мире насчитывается более миллиарда программ и каждый имеет возможность найти подходящую для него.
Но часто ли Вы задумываетесь какие программы будут в будущем? Какое предназначение они будут нести? На этот вопрос я постараюсь ответить. Что мы знаем о программах: они полезны, быстры, упрощают нам жизнь. Следовательно в будущем они будут быстрее и практичнее. Скорее всего в будущем каждая программа будет обладать искусственным интеллектом, который будет выполнять различные функции. И это позволит в разы ускорить взаимодействие человека с программой. Одна программа будет заменять сотню предыдущих, будет выполнять бытовые и не только работы. Например, допустим будет существовать программа от русских разработчиков "Сделаю ВСЕ", которая будет вам заводить будильник, отсылать машину на мойку, заправлять машину, поливать цветы, сообщать о погоде и о интересующих вас новостях. Каждый день мы шаг за шагом стремимся к этому промежутку времени, когда одна программа сможет облегчить нам жизнь в сотню раз.
Я считаю, что в будущем нас ждут прекрасные программы. Возможно, даже появятся такие программы, которые будут писать домашку за простых смертных. И это время будут по-истине удивительным и прекрасным!
var a,b,c:array[1..100] of integer;
i,n:integer; z:real;
begin
n:=random(10)+90;
writeln('n=',n);
writeln('array a=');
for i:=1 to n do
begin
a[i]:=random(300);
z:=z+a[i];
write(a[i],' ');
if (i mod 10 =0) then writeln;
end;
writeln;
write('Среднее арифметическое элементов массива=',z/n); writeln;
writeln('array b=');
for i:=1 to n do
begin
if (i mod 3 = 0) then b[i]:=0 else b[i]:=a[i];
write(b[i],' ');
if (i mod 10 =0) then writeln;
end; writeln; writeln('array a + array b=');
for i:=1 to n do
begin
c[i]:=a[i]+b[i];
write(c[i],' ');
if (i mod 10 =0) then writeln;
end;
end.