Ви не увійшли. Будь ласка, увійдіть або зареєструйтесь.
Ласкаво просимо вас на україномовний форум з програмування, веб-дизайну, SEO та всього пов'язаного з інтернетом та комп'ютерами.
Будемо вдячні, якщо ви поділитись посиланням на Replace.org.ua на інших ресурсах.
Для того щоб створювати теми та надсилати повідомлення вам потрібно Зареєструватись.
Український форум програмістів → Повідомлення користувача vitalik1998kvr
Сторінки 1
ні в 7 рядку помилка
Дано одновимірний масив дійсних чисел:
X={0.01; -27.3; 0; 125.27; -371.45; 0; 12; -5; -172.3; 0.05; -17.1; 49.5; -0.01}
Обчислити добуток елементів, котрі не дорівнюють 0.
var
A:array[1..14] of real=(0.01,-27.3,0,125.27,-371.45,0,12,-5,-172,3,0.05,-17.1,49.5,-0.01);
i:real;
begin
write('x= ');
for i:=1 to 14 do
read(A[i]);
if (A[i] * i>0) then begin
arr[i]:=arri]*i;
A[i]:=A[i*i];
end;
end.помилка очікувався порядковий тип
Сторінки 1