С
помощью функции "ОТБР", которая усекает число до целого, отбрасывая дробную часть
числа, так что остается целое число, исходное число делим на разряды, которые
затем суммируем
Пример решения в файле
Var a,b: array [0..100] of integer;
i, j, s,k,max: integer;
begin
FOR I:= 1 TO 5 do begin
FOR J:=1 TO 20 do begin
k:=k +1;
(A[k]):= random(90)+78;
write((A[k]:4));
if max < a[k] then begin max:=a[k];s:=k; end;
END;
write('A[' + s +'] =':8, max:4 );B[s]:=max;
writeln;
s:=0;max:=0;
END;
writeln;k:=0;
FOR I:= 1 TO 5 do begin
FOR J:=1 TO 20 do begin
k:=k +1;
if b[k] > 0 then (b[k]):= random(90)+78; //забег номеров победителей
if max < b[k] then begin max:=b[k];s:=k; end; //победитель среди
победителей
write((b[k]:4));
END;
writeln;
END;
write('A[' + s +'] =':8, max:4 );
end.
только мало что осталось от той программы много
ошибок Главная n нельзя в константы она не будет делиться и т.д.
1)Имитационные-имитационное моделирование васпроизводят поведение сложной системы элементы которой могут вести себя случайным образом. Игра жизнь предупреждала Джонам Канвеем
3)1.постановка задачи
2.Разработка концептуальной модели , выявление основных элементов системы и элементарных актов взаимодействия
3.Формализация
4.Планирование и проведение компьютерных экспериментов
5.Анализ и интрепретация резутатов
2)цель графического компьютерного моделирования:сделать невидемое и абстрактное "видемым'
4)
<span>позволяют создавать новые программы на языках программирования</span>
Да, является.
Наблюдая за природой человек использует в жизни ее "идеи".