Составьте Paskal-программу решение следующей задачи:

10-11 класс

Задан массив A(n).Найти сумму и количество чётных отрицательных элементов этого массива

Milania11 17 дек. 2013 г., 12:27:38 (10 лет назад)

Рейтинг

+ 0 -

Хороший вопрос

0 Жалоба

Ответить

+ 0 -

Vital5551

17 дек. 2013 г., 13:35:08 (10 лет назад)

Const
n=10;
Var
a:array[1..n]of integer;
i,S,k:integer;
begin
for i:=1 to n do
begin
a[i]:=random(100)-50;
write(a[i]:4);
if (a[i] mod 2=0)and(a[i]<0)then
begin
s:=s+a[i];
k:=k+1;
end
end;
writeln;
writeln('S: ',s,' k:',k);
end.

Хороший ответ

0 Жалоба Ответить

+ 0 -

Vladbochkarev01

17 дек. 2013 г., 16:26:21 (10 лет назад)

Помогите пожалуйста

Хороший ответ

0 Жалоба Ответить

Ответить

Другие вопросы из категории

Lerakoyava / 29 нояб. 2013 г., 1:52:01

11. Вася скачивает материалы для монтажа видеоролика длительностью N секунд, с использованием протокола torrent. Особенностью этого протокола является то,

что параллельно со скачиванием разбитого на небольшие фрагменты файла происходит раздача скачанных фрагментов. Торрент клиент настроен таким образом, что максимальная скорость скачивания 15 МБайт/с, а максимальная скорость раздачи – 5 МБайт/с.

Материалы включают в себя:
Несжатые изображения кадров, размером 1920*1080 точек с глубиной цвета 16 бит из расчета 18 изображений на секунду воспроизведения.
Несжатую звуковую дорожку длительностью N секунд, включающую 48 каналов, каждый из которых оцифрован с частотой дискретизации 192000 Гц и 4096 уровнями квантования.
Никакой другой информации, кроме описанной, в скачиваемых материалах нет.
Определите N - длительность видеоролика в секундах при условии, что раздача фрагментов началась одновременно с началом скачивания, и за время скачивания материалов было роздано 8100 МБайт. Скачивание и раздача все время осуществлялась на максимальных скоростях. Примечание: 1МБайт=2^20 байт. В ответе укажите значение N.