1. Информатика
  2. Pascal дан массив вещественных

Pascal дан массив вещественных чисел. найти сумму и количество отрицательных с нечетными номерами элементов, расположенных в первой половине массива (включая середину) ограничения: -число элементов в матрице не более 10-ти порядок ввода исходных данных: -число элементов в массиве -элементы массива порядок вывода результатов: -значение суммы с точностью до одного знака после запятой, ограничить ширину поля вывода результата 7-ю позициями, количество таких элементов или сообщение "элементы не найдены"

ПакЧимин111 ПакЧимин111    1   30.03.2019 09:10    1

Ответы
XxxOoo XxxOoo  27.05.2020 16:17

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

n,i,k:integer;

s:real;

begin

readln(n);

for i:=1 to n do readln(a[i]);

i:=1;

while i<=n do begin

if a[i]<0 then begin inc(k); s:=s+a[i]; end;

i:=i+2;

end;

 

if k<>0 then writeln(s:0:7,' ',k) else writeln('Элементы не найдены');

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
pupil80022225 pupil80022225  04.04.2020 23:43
1)Построить график функции в Excel. 2)Построить поверхность в Excel....
Alexandro1888 Alexandro1888  04.04.2020 23:21
На рисунке приведен фрагмент электронной таблицы. В ячейку D3 введена формула =B2-$A$1. Какое число появится в ячейке С4, если скопировать в нее формулу из ячейки...
siolvermen2005 siolvermen2005  04.04.2020 23:34
Ал­го­ритм вы­чис­ле­ния зна­че­ния функ­ции F(n), где n – на­ту­раль­ное число, задан сле­ду­ю­щи­ми со­от­но­ше­ни­я­ми:F(1) = 3; F(2) = 3;F(n) = 3·F(n - 2) -5·(n...
Nika1337228 Nika1337228  24.06.2019 21:20
Имеется информация об адресах учеников одного класса в виде: фамилия, имя, город, улица, № дома. написать программу, позволяющую вывести список учеников, проживающих...
gbvf1 gbvf1  14.07.2019 07:00
2. составить программу к следующей : «американский дедушка, подарил своему внуку на 1 день рождения 1$. каждый следующий день рождения он удваивал свой предыдущий...
maxfum maxfum  08.07.2019 05:10
Что такое двоичная знаковая система...
Тетрадь22 Тетрадь22  08.07.2019 05:10
Какой информационный обьем в байтах несет сообщение, записанное при использовании компьютерного алфавита, если оно содержит 1024 символов ?...
tanadzhi01 tanadzhi01  27.02.2019 17:20
Округлите числа до десятых. а)8,174 б)0,32 в)0,2829 г)4,1046 д)17,5624 е) 1,6439 ж) 10,8957 з)23,2541...
Аврораttt3783 Аврораttt3783  27.02.2019 17:20
Какова будет заработная плата после повышения на 23% если до повышения она составила 2500р ублей...
larikhambekov larikhambekov  27.02.2019 17:20
.(Вкаждом из двух вагонов трамвая было одинаковое число пассажиров. после остановки в первом вагоне стало на 20 пассажиров меньш , а во втором - на 10 и число пассажиров...

Популярные вопросы