на языке паскаль 1)дан массив натуральных чисел найдите сумму всех его элементов 2)вычислить количество положительных чисел
10-11 класс
|
среди 10 элементов вещественного массива
3)заполнить массив из n целых чисел.выяснить какое число встречается раньше-положительное или отрицательное.
4)в целочисленном массиве есть отрицательные элементы.вывести номера этих элементов
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.
Другие вопросы из категории
Читайте также
массива
3)заполнить массив из n целых чисел.выяснить какое число встречается раньше-положительное или отрицательное.
4)в целочисленном массиве есть отрицательные элементы.вывести номера этих элементов
только элементы кратные 2
3)Найти сумму первых пяти элементов
Составить программу Дан массив целых чисел , размерность -12
1) Заполнение массива производить случайными числами из диапозона [-10;35]
2)Вывести на печать только положительные элементы
3)Найти количество отрицательных элементов
Составить программу
Известны данные о выпуске прождукции ( ткани в метрах ) ткацким цехом текстильного комбината за каждый день месяца . Определить количество ткани ( метров) произведенных цехом за месяц .
2)Найти количество всех нечетных чисел на интервале от 11 до 20
3)Найти сумму целых положительных четных чисел на интервале от 1 до 100
4)Найти сумму ряда,общий член которого равен А(х)=1/(3*N-2)*(3*N+1)
5)Дано произвольное число n≤100.Определить количество цифр в числе
ОЧЕНЬ НУЖНО!!НА ЯЗЫКЕ ПАСКАЛЬ!ВЫРУЧАЙТЕ!
об этом факте
Можно на языке Паскаля
б)y=x^15
Постараться использовать минимальное количество дополнительных переменных.
4. Запишите на языке Паскаль программу циклического обмена значениями трёх переменных a,b,c. Схема циклического обмена: a ← b ← c. Например, если до обмена было: a=1, b=2, c=3, то после обмена должно стать: a=2, b=3, c=1.