Статистика
Всего в нашей базе более 4 327 663 вопросов и 6 445 976 ответов!

В одномерном целочисленном массиве из 10 элементов

5-9 класс

1.Найдите количество отрицательных элементов с четными номерами.
2.Найдите произведение элементов, стоящих после 0. Массив нулем не заканчивается.

В Pascal

Jek2383 28 дек. 2013 г., 15:31:28 (10 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Капиталина
28 дек. 2013 г., 16:40:13 (10 лет назад)

uses crt;

var mas: array [1..10] of integer;
i,a: integer;
begin
clrscr;
writeln('Input massive');
a:=0;
for i:=1 to 10 do
begin
readln(mas[i]);
if (i mod 2 =0) and (mas[i] < 0) then a:=a+1;
end;
writeln('Answer ',a);
end.


number 2

uses crt;

var mas: array [1..10] of integer;
i,a,k: integer;
begin
clrscr;
writeln('Input massive');
for i:=1 to 10 do
readln(mas[i]);
i:=1;
while (mas[i]<>0) and (i<10 ) do
i:=i+1;
k:=1;
if i < 10 then
begin
for a:=i to 10 do
k:=k*mas[a];
writeln(k);
end else
writeln('Nulya net');

end.

+ 0 -
RusIkL97
28 дек. 2013 г., 17:44:06 (10 лет назад)

как задается массв? из файла или с клавы?

+ 0 -
Vadimmukhin41
28 дек. 2013 г., 19:23:06 (10 лет назад)

с клавы

+ 0 -
Passat007
28 дек. 2013 г., 22:20:12 (10 лет назад)

ща наберу

Ответить

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

Для хранения ткста на диске требуется 10500байт.Сколько тсраницы займет этот текст при печати, если на странице размещяется 30 строк по 70 символов в

строке? а)7 б)4 в)2 г)5 д)10
Какое количество информации несет сообщение о том, что нужная вам программа находится на одном из восьми дисков? а)2 б)3 в)4 г)8

Свойства принтера: струйного и лазерного 1. принцип печати 2. достоинства 3. недостатки 4. представитель Характеристика 5. разрешение 6. скорость печати

7. объем встроенной памяти 8. способ подключения к компьютеру 9 формат бумаги 10. цена

Читайте также

ССССРРРРРРРРРРРРРРЛОООООООООООЧЧЧЧЧЧЧЧНООООООООО!!! 1. Заполнить одномерный массив, состоящий из 10 элементов, случайными числами от-15 до 35.

Найти сумму элементов данного массива.
2. Заполнить одномерный массив, состоящий из 10 элементов, случайными числами от-15 до 35.
Найти значение максимального элемента массива.

решить через паскаль через массивы)) 1.Дан одномерный массив из 10 элементов. Заменить все большие 7 члены массива числом 7. Найти количество

таких членов.

2.Дан массив из 10 элементов. Найти количество элементов с четными индексами.

3.Дан массив из 10 элементов. Найти наибольший элемент массива.

1. Дан массив А из 10 элементов, которые заполняются случайным образом, числам от 0 100. Выведите массив на экран и найдите максимальный элемент массива.

2. Создать массив A из 10 элементов, заполненный случайным образом числами принадлежащих промежутку (0;20). Вывести полученный массив на экран. Вычислить количество элементов массива, значения которых не превышают среднее арифметическое значений его элементов.

НАПИШИТЕ ПОЖАЛУЙСТА ПРОГРАММУ ДЛЯ ПАСКАЛЯ: 1) Разработайте алгоритм для ввода в память ЭВМ линейной таблицы В, состоящей из 8 элементов вещественного

типа. Ввод организуйе без использования цикла 2) разработайте алгоритм для ввода в память ЭВМ одномерного массива С состоященр из 7 элементов целого тип. Ввод организуйе с исползованием цикла "ДЛЯ". 3) разработайте алгоритм для ввода в память ЭВМ одномерного массива Д состоящего из 10 элементов целого типа. Каждый элемнт вычислите по формуле: значение элемента равно квадрату его индекса

Дан целочисленный массив из 20 элементов. Элементы массива принимают значения от 0 до 10000 включительно. Написать программу, позволяющую найти и выв

ести максимальное значение среди трехзначных элементов массива, делящихся на 4. Если в исходном массиве нет трехзначного элемента, который делится на 4, то вывести сообщение о том, что такого числа нет.



Вы находитесь на странице вопроса "В одномерном целочисленном массиве из 10 элементов", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.