Современным инструментом для информационного моделирования является компьютер. Конечно, на компьютере можно писать тексты (строить вербальные модели), рисовать карты и схемы (графические модели), строить таблицы (табличные модели). Но при таком использовании компьютера в моделировании его возможности проявляются не в полной мере.Главное преимущество компьютера перед человеком к быстрому счету. Современные компьютеры считают со скоростями в сотни тысяч, миллионы и даже миллиарды операций в секунду!Учитывая, что расчеты производятся над многозначными числами (10-20 десятичных цифр), вычислительные человека нельзя даже сравнивать с компьютерными. Эти феноменальные вычислительные возможности проявляются, прежде всего, вкомпьютерном математическом моделировании.
Вот массив который сам заполняется uses crt; const n=100; var i,a:integer; mas1: array [0..n] of integer; begin for i:=0 to n do begin a:=random(10000); mas1[i]:=a; end; for i:=0 to n do begin if i mod 2=0 then write('A[',i,']=',mas1[i],' '); end; end.
вот заполняемый вручную(чтобы записывать через пробел сам измени))) uses crt; const n=100; var i,a:integer; mas1: array [0..n] of integer; label 1; begin for i:=0 to n do begin 1:read(a); if a<=10000 then mas1[i]:=a else begin writeln('a bolwe 10000'); goto 1 end; end; for i:=0 to n do begin if i mod 2=0 then write('A[',i,']=',mas1[i],' '); end; end.
uses crt;
const
n=100;
var
i,a:integer;
mas1: array [0..n] of integer;
begin
for i:=0 to n do
begin
a:=random(10000);
mas1[i]:=a;
end;
for i:=0 to n do
begin
if i mod 2=0 then
write('A[',i,']=',mas1[i],' ');
end;
end.
вот заполняемый вручную(чтобы записывать через пробел сам измени)))
uses crt;
const
n=100;
var
i,a:integer;
mas1: array [0..n] of integer;
label 1;
begin
for i:=0 to n do
begin
1:read(a);
if a<=10000 then
mas1[i]:=a
else
begin
writeln('a bolwe 10000');
goto 1
end;
end;
for i:=0 to n do
begin
if i mod 2=0 then
write('A[',i,']=',mas1[i],' ');
end;
end.