Вопрос по информатике:
на языке паскаль
1)дан массив натуральных чисел найдите сумму всех его элементов
2)вычислить количество положительных чисел среди 10 элементов вещественного массива
3)заполнить массив из n целых чисел.выяснить какое число встречается раньше-положительное или отрицательное.
4)в целочисленном массиве есть отрицательные элементы.вывести номера этих элементов
- 10.04.2018 10:42
- Информатика
- remove_red_eye 3284
- thumb_up 107
Ответы и объяснения 1
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.
- 11.04.2018 02:11
- thumb_up 43
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.