Николай
5 год назад
Пожалуйста посчитайте, пожалуйста с программированием! 1.Из массива Р, содержащего 10 элементов, сформировать массив Т по правилу:a. Т(к)=к*Р(к), где к – чётные, Т(к)=Р(к)/к, где к – нечётные.2. В массиве, содержащем 10 элементов, умножить на заданное число максимальный отрицательный элемент.
ОТВЕТЫ
Ivo
Oct 24, 2020
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.
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.
196
Смежные вопросы:
