1.Заполнить линейный массив по формуле y[i]=корень x-5*c+x/14+a;2.Заполнить случайным

1.Заполнить линейный массив по формуле y[i]=корень x-5*c+x/14+a;
2.Заполнить случайным образом и вывести на экран только положительные не четные числа
3.В двуменрном массиве действитьельных чисел отыскать произведение отрицательных частей великих =14;
4.Поменять к-й элеменит одномерного массива на творение всех его частей кратных 5;

Задать свой вопрос
Nastja Avtonomova
В 3-ем задании ошибка
Ольга Сажыгова
Отрицательный элемент не может быть больше положительного числа 14
Лилия
Возможно в задачке было - 14 а не 14?
Камилла Михайлова-Кадыкова
Там негативно -14
1 ответ

1.                                                                        

program raf105;

const n = 10;

var y:array[1..n] of real;

i,x,c,a:integer;

begin

write('Введите значение X: ');

readln(x);

write('Введите значение C: ');

readln(c);

write('Введите значение A: ');

readln(a);

writeln('Элементы массива:');

for i:=1 to n do

begin

 y[i]:= sqrt(x-5*c+x/14+a);

 writeln(y[i]);

end;

end.

2.                                                                        

program raf105;

const n = 10;

var a:array[1..n] of integer;

i:integer;

begin

writeln('Положительные, нечётные элементы сгенерированного массива:');

for i:=1 to n do

begin

 a[i]:= random(-100,100);

 if (a[i] gt; 0) and ((a[i] mod 2) lt;gt; 0)

   then writeln(a[i]);

end;

end.

3.                                                                        

program raf105;

var a:array[1..3,1..3] of integer;

pro,i,j:integer;

begin

writeln('Вводите 9 чисел по очереди');

pro:= 1;

for i:=1 to 3 do

 for j:=1 to 3 do

 begin

   readln(a[i,j]);

   if (a[i,j]lt;0) and (a[i,j]gt;-14)

     then pro *= a[i,j];

 end;

writeln('Творение отрицательных частей больше -14:');

writeln(pro);

end.

4.                                                                        

program raf105;

const n = 10;

var a:array[1..n] of integer;

pro,k,i:integer;

begin

write('Номер сменяемого элемента: ');

readln(k);

writeln('Вводите ',n,' чисел по очереди');

pro:= 1;

for i:=1 to n do

begin

 readln(a[i]);

 if (a[i] mod 5)=0

   then pro *= a[i];

end;

a[k]:= pro;

write('Вывод: ');

for i:=1 to n do

 write(a[i],' ');

end.

Язык программирования PascalABC

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт