IPB

Здравствуйте, гость ( Вход | Регистрация )

 
Ответить в эту темуОткрыть новую тему
> задачки в паскале на массивы
adler54
сообщение 19.6.2010, 16:32
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 1
Регистрация: 19.6.2010
Город: lalala
Вы: студент



1) Из N вещественных чисел, задаваемых оператора ввода, найти отрицательные и вывести на экран целую и дробную часть этих чисел отдельно

2) Найти среднеарифметическое элементов вещественного массива А1,А2...Аn предшествующих первому элементу, большему 50.
n-длина массива
А1,А2...Аn -массив

uses crt;
const max=100;
var a:array[1..max] of real;
n,i,j:byte;
sr:real;
begin
clrscr;
randomize;
repeat
write('Размер массива n=');
readln(n);
until n in [1..max];
writeln('Исходный массив:');
for i:=1 to n do
begin
a[i]:=60*random;
write(a[i]:5:1);
end;
writeln;
writeln;
i:=1;{начало массива}
j:=0;{индекс искомого элемента}
while(i<=n)and(j=0)do{пока не конец и элемент не больше 50}
if a[i]>50 then j:=i{идем и ищем, нашли, запомнили}
else i:=i+1;{иначе вперед}
if j=0 then write('Элементов больше 50 в массиве нет')
else if j=1 then write('Элемент больше 50 первый, предшествующих нет')
else
begin
writeln('Первый элемент больше 50=',a[j]:0:1,' его индекс=',j);
sr:=0;
for i:=1 to j-1 do sr:=sr+a[i];{}
sr:=sr/(j-1);{}
write('Среднее до первого элемента больше 50=',sr:0:1);
end;
readln
end.

не получается вот никак написать код, помогите чем сможете)
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения

Ответить в эту темуОткрыть новую тему
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия Сейчас: 29.3.2024, 7:28

Книжки в помощь: "Сборник заданий по высшей математике" Кузнецов Л.А., "Сборник заданий по высшей математике" Чудесенко В.Ф., "Индивидуальные задания по высшей математике" Рябушко А.П., и другие.




Зеркало сайта Решебник.Ру - reshebnik.org.ru