Дана программа нахождения суммы всех элементов массива. изменить программу таким образом, чтобы: a) массив состоял из 15 элементов вещественного типа; b) значения элементов массива должны меняться в интервале от 0 до 5; c) в результате выполнения программы должно быть найдено произведение всех элементов массива, а не их сумма. program massiv; const n=10; var a: array [1..n] of integer; s, i integer; begin writeln (‘ исходный массив.‘); for i: = 1 to n do begin a [ i] : = random (10); write (‘a[‘i'] =', a[i], ''); end; s: =0; for i: = 1 to n do s: = s+a[i]; writeln (‘ сумма всех элементов массива s=‘, s); end. 2. вводится одномерный массив размерностью 100 для обработки данной программой. что делает программа? program pr; var х: array [1..100] of integer; i, s: integer; begin s: =0; for i: =l to 100 do begin readln (x [i]) ; if i mod 2=0 then s: =s+x[i] ; end; writeln (s) ; end. данная программа определяет: 1.сумму значений элементов массива с четными индексами; 2.сумму значений отрицательных элементов; 3.количество элементов, значение которых четное число; 4.среднее арифметическое значений элементов массива с четными индексами.
Ответы
Вот: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 const n=5; var a: array[1..n,1..n] of integer; i,j,s: integer; begin s: =0; randomize; for i: =1 to n do begin for j: =1 to n do begin a[i,j]: =random(10); write(a[i,j]: 4); if (i+j) mod 3=0 then s: =s+a[i,j]; end; writeln; end; writeln('s=',s); end.
Каждый символ в кои-8 имеет объем информации 1 байт. всего текста 60*30 = 1800 байт на каждой странице. растровое изображение передает не более 8 = 2^3 цветов, значит, на кодировку цвета используется 3 бита. размер каждого рисунка 120*240*3 = 86400 бит = 10800 байт. а рисунков 2 на каждой странице. таким образом, каждая страница содержит 2*10800 + 1800 = 23400 байт. модем со скоростью передачи 28800 бит в сек передал документ за 5 сек. значит, он передал 28800*5 = 144000 бит = 18000 байт. но это меньше, чем находится на одной странице. вывод: у вас ошибка в условии.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
1.Program massiv;
const n=15;
Var a: array [1..n] of integer;
s,i integer;
Begin
writeln (‘ исходный массив.‘);
For i:= 1 to n do
begin
a [ i] := random (6);
write (‘a[‘i'] =', a[i], '');
end;
s:=0;
For i:= 1 to n do
s:= s*a[i];
Writeln (‘ сумма всех элементов массива S=‘, s);
end.
2.1