Как найти все положительные элементы в паскале

Как найти все положительные элементы в паскале

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

Лучший ответ Сообщение было отмечено vi_beaulieu как решение

Решение

Pascal 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

var
    mass : Array[1..100] Of ShortInt;
    i, n : 1..100;
begin
    Randomize;
    Write('n=');
    {$R+}
    ReadLn(n);
    {$R-}
    Write('Ishodnyj massiv: ');
    for i := 1 to n do
    begin
        mass[i] := Random(199) - 99;
        Write(mass[i]:4);
    end;
    WriteLn; WriteLn;
    WriteLn('Polozhitelnye i ih id:');
    for i := 1 to n do
        if (mass[i] > 0)
        then
            WriteLn('mass[', i, ']=', mass[i]);
end.

Миниатюры

Найти и напечатать все положительные элементы одномерного массива
 



1

CAPITAL OF ROCK!

1281 / 708 / 982

Регистрация: 03.03.2010

Сообщений: 2,286

13.01.2015, 02:18

3

Лучший ответ Сообщение было отмечено vi_beaulieu как решение

Решение

вот этот вариант блок-схемы чутка получше будет.

Миниатюры

Найти и напечатать все положительные элементы одномерного массива
 



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

Источник

Изображение:

Решение задач с массивами на Pascal

Решение заданий на составление программы для поиска элементов в массиве и нахождение суммы элементов.

Задача 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. Введенный массив далее выдается на экран в виде строки, перед которой выводится сообщение:
Исходная матрица

Источник

Добавить комментарий