Program a_86betiri; uses crt; const n=20; var a:array[1..n] of real; sum, mt: real; i:integer; begin writeln('*** alphaues is thinking... ***'); writeln('*** OK ***'); sum:=0; mt:=1; randomize; for i:=1 to n do begin a[i]:=random(100); sum:=sum+a[i]; end; writeln('Элементы массива:'); for i:=1 to n do begin if a[i]<(sum/n) then mt:=mt*a[i]; write (a[i]:7:2); end; writeln(); writeln('Произведение элементов, меньших, чем среднее арифметическое: ',mt); end.
2-хранение информации 3- ввода: клавиатура, мышь, сканер вывода: монитор, калонки, принтер 4-в двоичном коде 5-это часть системы компьютерной памяти, в которой временно хранятся данные и команды, необходимые процессору для выполнения им операции 6- это память, предназначенная для длительного хранения программ и данных 7- комплекс взаимосвязанных программ, предназначенных для управления ресурсами компьютера и организации взаимодействия с пользователем. 8-однозадачные операционные системы позволяют в каждый момент времени решать только одну задачу. Такие системы обычно позволяют запустить одну программу в основном режиме. 9-многозадачные системы позволяют запустить одновременно несколько программ, которые будут работать параллельно. 10- единица измерения количества информации. 11- это наука о и методах представления, обработки, передачи и хранения информации с ЭВМ 12- главный вычислительный элемент компьютера 13- совокупность программ системы обработки информации и программных документов, необходимых для эксплуатации этих программ.
var s,k: integer; // описали переменные, которые будут использованы в программе: s и k целые числа begin s:= 500; // переменной s присвоили начальное значение 500 for k:= 4 to 10 do // организовали цикл для k от 4 до 10 с шагом 1. То есть нижеследующий оператор цикла будет выполняться 7 раз (для k=4, k=5, k=6, ... k=10) s:= s - 2*k; // для каждого k поочередно считаем s: // k=4 -- s=500-2*4=492 // k=5 -- s=492-2*5=482 // k=6 -- s=482-2*6=470 // k=7 -- s=470-2*7=456 // k=8 -- s=456-2*8=440 // k=9 -- s=440-2*9=422 // k=10 -- s=422-2*10=402 write (s); // выводим на экран итоговое значение s: 402 end.
Program a_86betiri;
uses crt;
const n=20;
var
a:array[1..n] of real;
sum, mt: real;
i:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
sum:=0;
mt:=1;
randomize;
for i:=1 to n do
begin
a[i]:=random(100);
sum:=sum+a[i];
end;
writeln('Элементы массива:');
for i:=1 to n do
begin
if a[i]<(sum/n) then
mt:=mt*a[i];
write (a[i]:7:2);
end;
writeln();
writeln('Произведение элементов, меньших, чем среднее арифметическое: ',mt);
end.