ТутРешу.Ру

Помогите пожалуйста решить задачки в паскале.1

Задание:

Помогите пожалуйста решить задачки в паскале.1. В одномерном массиве перенести элемент, стоящий на первом месте в конец массива.2. Вывести на печать номера точек, лежащих в круге радиусом r. Координаты точек заданы массивами (x1,x2,… ,x10) , (y1,y2,… ,y10).3. В одномерном массиве найти сумму положительных, произведение отрицательных, количество четных элементов.4. Дан массив, состоящий из 50 элементов, найти предпоследний нечетнный элемент.

Решение:

1. Пишу не весь код, а только самую важную частьbuf: =a[1]; //buf имеет тип такой же, как и массивfor i: =1 to n-1 do a[i]: =a[i+1]; //сдвигаем все элементы влевоa[n]: =buf; // последнему присваиваем первый 2. if sqrt (sqr (x[i])+sqr (y[i]) <= R then writeln (x[i],',y[i]) 3. Опять же не весь кодch// Кол-во четныхp// Произведениеs// Суммаs: =0; ch: =0; p: =1; for i: =1 to n do begin if a[i]>=0 then s: =s+a[i]else p: =p*a[i]; if a[i] mod 2=0 then ch: =ch+1; end; writeln ('Четных ', ch); writeln ('Сумма положительных ', s); writeln ('Произведение отриц ', p); P.S. Не компилировал, но должно работать.




Знаете другой ответ?

Отправить свой ответ