Написать в паскаль массив из 15 элементов заполнить случайными целыми числами кратными трём в интервале от -45 до 50. вывести полученный массив на экран в строчку. найти индекс наибольшего элемента массива.

Program massiv; var  mass = array [1..15] of integer; i, max, n_max: integer; begin {заполнение массива} for i: = 1 to 15 do mass[i] = (random(32)-15) * 3; max : = 0; n_max : = 0; {нахождение максимума, вывод на экран} for i: = 1 to 15 do begin if mass[i] > max then begin max : = mass[i]; n_max : = i; end; write(mass[i], ' '); end; writeln('индекс максимального: ', n_max); end.

Var    a1, a2, a3, max: integer;   begin    writeln('a1=');       readln(a1);     writeln('a2=');       readln(a2);       writeln('a3=');     readln(a3);         if a1 > a2 then          max : = a1    else        max : = a2;       if a3 > max then        max : = a3;       writeln ('максимальное из них: ', max);   readln; end.

Наверное, можно и своими словами объяснить. ну ты сам(а) логический порассуждай чем различие и сходство между древним и современным компьютеров. ну например, у современных компьютеров мощный процессор, болшая память, множество программ, игр, и все это в одном небольшом системном блоке. это компактно! а у старых компьютеров память еле-еле достигали 1 гб. а так же скорость, ну это просто ужас. компьютер оперировал 72 числами, состоящими из 23 десятичных разрядов, затрачивая по 3 секунды на операции сложения и вычитания. умножение выполнялось в течение 6 секунд, деление — 15,3 секунды, на операции вычисления логарифмов и выполнение тригонометрических функций требовалось больше минуты.