Технический форум - Помогите, пожалуйста, решить задачки в Паскале по одномерным массивам

Технический форум (http://www.tehnari.ru/)

- Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)

- - Помогите, пожалуйста, решить задачки в Паскале по одномерным массивам (http://www.tehnari.ru/f43/t72759/)

alexandrra

08.05.2012 02:03

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

1) заполнить массив А по правилу для всех х=-4..4 с шагом 1: y[x]=tgx-5x^2

2) задать массив случайным образом. Найти кол-во и сумму элементов,попадающих в отрезок [7;14]

3) ввести массив, состоящий из 10 элементов с клавиатуры . Вывести сумму без учета максимального значения

Gruvi

08.05.2012 20:13

поясните 3е задание подробнее ?
заполнить массив с клавиатуры числами, и программа должна считать сумму всего массива или что ?

alexandrra

08.05.2012 21:49

программа должна считать сумму элементов массива, без учета max элемента

Gruvi

09.05.2012 00:49

Писал в блокноте, по этому могу сделать ошибки (давно к тому же на pascal'е что-то делал)

Цитата:

const
max = 100;
var
arr: array[1..max] of real;
n: integer;
sum. max: real;
i: integer;

begin
write('Количество элементов: ');
readln(n);

write('Укажите значения: ');
; max:=a[1];
for i:=2 to n do
begin
if max<a[i] then
max:=a[i];
end;
sum := 0
for i := 1 to n do
sum := sum + arr[i] - max;

writeln('Сумма элементов: ', sum:10:2);
end.

alexandrra

09.05.2012 02:58

спасибо, Вы мне очень помогли

Часовой пояс GMT +4, время: 21:50.