Сформируйте массив из 10 элементов, каждый элемент которого равен сумме значений его индекса и квадрата индекса. найдите произведение элементов массива, стоящих на четных местах. вывести на экран эти элементы и ихпроизведение.
Ответы
var
a : array[1..10] of intenger; b : intenger; begin
b: =1;
for i: = 1 to 10 do
begin
a[i]: =i+i*i;
end; for i: = 1 to 5 do begin b: =b*a[i*2]; end; for i: =1 to 5 begin writeln(' ',a[i*2]); end; writeln('произведение элементов массива, стоящих на четных местах=',b);
end.
чертишь координатные оси , рисуешь круг с радиусов в 2 единичных отрезка , где нибудь т.x и т. y , т. r внутри круга или на ободе круга , тобишь где прямая с осью имеет общую точку и начинаешь искать всё по моей схеме . ι ι ιначалоι ιι ι ι ιопределениеι ι окна ι ι ι ι ι ι / / /ввод x,y,r/ // ι ι ι / / / рисунка / // ι ι условие да ι ι ι ι 1 действие 2 действие ι ι ιι ι ι / / / вывод x,y,r / / / ι ι ( конец ) ⁻⁻⁻⁻⁻⁻⁻⁻⁻⁻⁻⁻⁻⁻⁻⁻
Const k = 10; var a,b: array[1..k] of integer; i,n: integer; begin n: =1; writeln('кол-во тракторов: '); write('по плану: '); for i: = 1 to k do begin a[i]: =random(21); b[i]: =random(21); if a[i]> b[i] then n: =n+1; write(a[i]: 2,' '); end; writeln; write('по факту: '); for i: = 1 to k do write(b[i]: 2,' '); writeln; writeln(n,' - стольки колхозам недопоставили трактора.'); end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
var a: array[1..10] of integer;
p,i: integer;
begin
p: =1;
for i: = 1 to 10 do begin
a[i]: =i+i*i;
if odd(i) then begin
writeln(a[i]);
p: =p*a[i];
end;
end;
writeln(p);
end.