0 / 0 / 0 Регистрация: 13.01.2015 Сообщений: 2 |
|
1 |
|
Найти и напечатать все положительные элементы одномерного массива13.01.2015, 01:30. Показов 1848. Ответов 2
Помогите пожалуйста! Составить структурную схему и программу обработки одномерного массива. Найти и напечатать все положительные элементы одномерного массива A(a1, a2, …, an).
0 |
JokeR.BY CAPITAL OF ROCK! 1281 / 708 / 982 Регистрация: 03.03.2010 Сообщений: 2,286 |
||||
13.01.2015, 02:07 |
2 |
|||
Решение
Миниатюры
1 |
CAPITAL OF ROCK! 1281 / 708 / 982 Регистрация: 03.03.2010 Сообщений: 2,286 |
|
13.01.2015, 02:18 |
3 |
Решениевот этот вариант блок-схемы чутка получше будет. Миниатюры
1 |
как найти положительные элементы в массиве (Паскаль)
Знаток
(333),
на голосовании
8 лет назад
Голосование за лучший ответ
Дед Мазай
Гений
(58003)
8 лет назад
Берёшь первый элемент массива, и проверяешь, является ли число положительным. Знаешь, как отличить положительное число от других? Потом следующий элемент, и т. д.
johnsilver
Просветленный
(22276)
8 лет назад
var
i,n:integer;
begin
n:=random(25);
writeln(‘Начат поиск положительных элементов в массиве’);
for i:=0 to n do
if random(2)=1 then writeln(‘Найдено’);
writeln(‘Поиск закончен’);
end.
Формулировка задачи:
8. Создайте одномерный массив, в который пользователь введет с клавиатуры значения элементов. Выведите на экран значения элементов массива. Выведите на экран все положительные элементы массива.
Код к задаче: «Выведите на экран все положительные элементы массива»
textual
... for i:=1 to n do readln(a[i]); for i:=1 to n do if a[i]>0 then write(a[i],' '); ...
Полезно ли:
7 голосов , оценка 3.714 из 5
Изображение:
Решение заданий на составление программы для поиска элементов в массиве и нахождение суммы элементов.
Задача 1.
Дан одномерный массив из 50 элементов. Массив заполнен
случайными числами от -100 до 100.
Вывести на экран все положительные элементы массива.
var
a: integer;
z: array [1..50] of integer;
begin
for a := 1 to 50 do
begin
z[a] := random(201) – 100;
if z[a] > 0 then
write(z[a],’ ‘);
end;
end.
Задача 2.
Дан одномерный массив из 100 элементов.
Массив заполнен случайными числами от -100 до 100.
Найти сумму тех элементов массива, которые одновременно
имеют четные и отрицательные значения.
var
a, sum: integer;
z: array [1..100] of integer;
begin
sum := 0;
for a := 1 to 100 do
begin
z[a] := random(201) – 100;
if (z[a] mod 2 = 0) and (z[a] < 0) then
sum := sum + z[a];
end;
write(‘Сумма отриц. элементов = ‘, sum);
end.
Видео с решением
Задание: в массиве A1, A2, A3,… Am вычислить количество положительных, количество отрицательных и число нулевых элементов
Program m1; {найти в массиве A сумму положительных элементов, число отрицательных и число нулевых элементов}
const m=20;
var A:array[1..m] of real;
s:real;
i,n,l:integer;
begin
for i:=1 to m do
begin
write(‘A[‘,i,’]=’);
readln (A[i]);
end;
writeln(‘исходная матрица’);
for i:=1 to m do
write(A[i]:5:2);
writeln;
s:=0;
n:=0;
l:=0;
for i:=1 to m do
if A[i]>0 then
s:=s+A[i]
else
if A[i]=0 then
n:=n+1
else
l:=l+1;
writeln(s:5:2, n:5, l:5);
end
Пояснения
1. Размер массива задан с помощью const n= 20.
2. Ввод массива осуществляется поэлементно, при этом на экране выдается подсказка A[i] = …
3. Введенный массив далее выдается на экран в виде строки, перед которой выводится сообщение:
Исходная матрица