Программирование задачи обработки вектора на языке Pascal ABC

17.02.2014, 13:23. Показов 439. Ответов 0

Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам

В вещественом векторе Z(n) подсчитать сумму элементов, расположеных на четных местах.

Pascal

program lab_4;
var z: array[1..30] of real;
min, s, p: real;
i, k, n, nom: byte; { i – параметр цикла, n – фактическое число элементов в векторе }
begin
write(′Введите число элементов: ′);
readln(n);
s:=0; p:=1; k:=0;
write(′Введите элементы через пробел: ′);
for i:=1 to n do
read(z[i]);
for i:=1 to n do
begin
if z[i]>0 then s:=s+z[i]
else if z[i]<0 then p:=p*z[i]
else k:=k+1;
if min>z[i] then begin
min:= z[i]; nom:=i
end
end;
writeln(′S=′,s:7:1, ′   P=′,p:7:1, ′   K=′,k);
writeln(′MIN=′,min:5:1, ′   его место=′,nom);
end.

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

17.02.2014, 13:23

Ответы с готовыми решениями:

Решение задачи на языке Pascal ABC с блок-схемой
Организовать ввод элементов трех множеств A, B, C. По запросу пользователя вычис- лить и...

программирование Pascal ABC
Пожалуйста,помогите написать программы под 7 номером на каждой фотографии

Как быстро научиться программировать на языке Pascal ABC
Как быстро научиться программировать на языке Pascal ABC? Для уроков информатики надо.

Задачи на Pascal ABC
Здравствуйте! Прошу помощи по программам Pascal ABC! Кто может помогите, хотя-бы одной.)

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

17.02.2014, 13:23

Помогаю со студенческими работами здесь

Нужно решение задачи на Pascal ABC
Работа с двумерными массивами. Дан двумерный массив размером n *m, заполненный случайным образом....

PASCAL ABC. ЗАДАЧИ НА ФОТО. ПОМОГИТЕ С УРОВНЕМ С
PASCAL ABC. ЗАДАЧИ НА ФОТО. ПОМОГИТЕ С УРОВНЕМ С

Задачи на программирование на языке QBasic
Здравствуйте дорогие форумчане:) Помогите пожалуйста с решением задач: 1) Дан массив А(5). Найти...

Задачи на языке Pascal
Всем доброго времени суток! Искренне прошу помощи с задачами на ЯП Pascal. Сам занимаюсь не первый...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Опции темы

Наверх