сервис вопросов и ответовна языке паскаль 1)дан массив натуральных чисел найдите сумму всех его элементов 2)вычислить количество положительных чисел
10-11 класс|
|
среди 10 элементов вещественного массива
3)заполнить массив из n целых чисел.выяснить какое число встречается раньше-положительное или отрицательное.
4)в целочисленном массиве есть отрицательные элементы.вывести номера этих элементов
Podolina
11 июля 2014 г., 22:10:45 (9 лет назад)
Mashadenisowa
11 июля 2014 г., 23:24:09 (9 лет назад)
1.
var
i,n,s:integer;
a:array [1..100] of integer;
begin
write('Введите количество элементов массива: ');
readln(n);
s:=0;
for i:=1 to n do
begin
readln(a[i]);
s:=s+a[i];
end;
writeln('Сумма элементов массива = ',s);
end.
2.
var
i,n,k:integer;
a:array [1..10] of real;
begin
k:=0;
for i:=1 to 10 do
begin
readln(a[i]);
if a[i]>0 then k:=k+1;
end;
writeln('Количество положительных элементов массива = ',k);
end.
3.
var
i,n:integer;
a:array [1..100] of integer;
begin
write('Введите количество элементов массива: ');
readln(n);
for i:=1 to n do
readln(a[i]);
if a[1]>0 then writeln('Раньше встречается положительное число')
else writeln('Раньше встречается отрицательное число')
end.
4.
var
i,n:integer;
a:array [1..100] of integer;
begin
write('Введите количество элементов массива: ');
readln(n);
for i:=1 to n do
readln(a[i]);
for i:=1 to n do if a[i]<0 then write(i,' ');
end.
Ответить
Другие вопросы из категории
Читайте также
1)дан массив натуральных чисел найдите сумму всех его элементов 2)вычислить количество положительных чисел среди 10 элементов вещественного
массива
3)заполнить массив из n целых чисел.выяснить какое число встречается раньше-положительное или отрицательное.
4)в целочисленном массиве есть отрицательные элементы.вывести номера этих элементов
Составить программу Дан массив натуральных чисел , размерность -12 !) Заполнение массива производить с клавиатуры 2) Вывести на печать
только элементы кратные 2
3)Найти сумму первых пяти элементов
Составить программу Дан массив целых чисел , размерность -12
1) Заполнение массива производить случайными числами из диапозона [-10;35]
2)Вывести на печать только положительные элементы
3)Найти количество отрицательных элементов
Составить программу
Известны данные о выпуске прождукции ( ткани в метрах ) ткацким цехом текстильного комбината за каждый день месяца . Определить количество ткани ( метров) произведенных цехом за месяц .
1)Вычислить значения функции y=4*x^3-2*x^2+5 для x, изменяющегося от -3 до 1 с шагом 0,1 на языке ПАСКАЛЬ!!СРОЧНОО ЗАВТРА ЭКЗАМЕН РЕБЯЯТКИ!
2)Найти количество всех нечетных чисел на интервале от 11 до 20
3)Найти сумму целых положительных четных чисел на интервале от 1 до 100
4)Найти сумму ряда,общий член которого равен А(х)=1/(3*N-2)*(3*N+1)
5)Дано произвольное число n≤100.Определить количество цифр в числе
ОЧЕНЬ НУЖНО!!НА ЯЗЫКЕ ПАСКАЛЬ!ВЫРУЧАЙТЕ!
Дана последовательность натуральных чисел a1,a2,...,an. Создать массив из четных чисел этой последовательности.Если таких чисел нет то, вывести сообщение
об этом факте
Можно на языке Паскаля
3. Не используя функцию возведения в квадрат, напишите на языке Паскаль наиболее короткие алгоритмы вычисления а) y=x¹° б)y=x¹⁵ или а) y=x^10
б)y=x^15
Постараться использовать минимальное количество дополнительных переменных.
4. Запишите на языке Паскаль программу циклического обмена значениями трёх переменных a,b,c. Схема циклического обмена: a ← b ← c. Например, если до обмена было: a=1, b=2, c=3, то после обмена должно стать: a=2, b=3, c=1.
Вы находитесь на странице вопроса "на языке паскаль 1)дан массив натуральных чисел найдите сумму всех его элементов 2)вычислить количество положительных чисел", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.