Вопрос школьника по предмету Информатика
Помогите, пожалуйста с программированием!
1.Из массива Р, содержащего 10 элементов, сформировать массив Т по правилу:
a. Т(к)=к*Р(к), где к – чётные, Т(к)=Р(к)/к, где к – нечётные.
2. В массиве, содержащем 10 элементов, умножить на заданное число максимальный отрицательный элемент.
Ответ учителя по предмету Информатика
var p,t: array [1..10] of real;
k:integer;
begin
for k:=1 to 10 do
readln( p[k]);
for k:=1 to 10 do begin
if k mod 2=0 then t[k]:=k*p[k];
if k mod 2=1 then t[k]:=p[k]/k;
end;
for k:=1 to 10 do
writeln (p[k]);
end.
Похожие вопросы от пользователей
Пример:кофе,какао,капучино и т.д.
Срочно!!!
120,(1). Можно ли окружность Радиусом 5 см разместить внутри квадрата с длиной 11 см?
120,(2). Можго ли шар радиусом 7 см разместить внктри куба с длиной ребра 15 см?