Предмет: Информатика,
автор: nata19781
помогите,люди, решающая практическая,пожалуйстааааааа это 2 разных задачи в паскале
Приложения:
Ответы
Автор ответа:
0
Вот 1 задача
VAR a : array [1..10] of real;
i : byte;
p : real;
BEGIN
writeln ('Введите элементы массива a:');
for i:=1 to 9 do readln (a[i]); //Вводим массив
write ('Массив a: ');
for i:=1 to 9 do write (a[i],', '); //Выводим массив
p:=1; //Обнуляем счетчик
for i:=1 to 9 do p:=p*a[i]; //Находим произведение элементов массива
for i:=1 to 9 do a[i]:=a[i]/p; //Находим элементы полученного массива
writeln;
write ('Полученный массив a: ');
for i:=1 to 9 do write (a[i]:9:7,', ') //Выводим полученный массив
END.
VAR a : array [1..10] of real;
i : byte;
p : real;
BEGIN
writeln ('Введите элементы массива a:');
for i:=1 to 9 do readln (a[i]); //Вводим массив
write ('Массив a: ');
for i:=1 to 9 do write (a[i],', '); //Выводим массив
p:=1; //Обнуляем счетчик
for i:=1 to 9 do p:=p*a[i]; //Находим произведение элементов массива
for i:=1 to 9 do a[i]:=a[i]/p; //Находим элементы полученного массива
writeln;
write ('Полученный массив a: ');
for i:=1 to 9 do write (a[i]:9:7,', ') //Выводим полученный массив
END.
Похожие вопросы
Предмет: Русский язык,
автор: rahpanovkuanysh045
Предмет: История,
автор: irinaanciferova2
Предмет: История,
автор: qusymedenzhuldyzai12
Предмет: Математика,
автор: 130774