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

@vi_beaulieu · Регистрация: 13.01.2015

Author24 — интернет-сервис помощи студентам

Помогите пожалуйста!

Составить структурную схему и программу обработки одномерного массива.

Найти и напечатать все положительные элементы одномерного массива A(a₁, a₂, ..., a_n).
Одновременно печатать их порядковые номера.

@JokeR.BY · 13.01.2015, 02:07

Pascal

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.

@JokeR.BY · 13.01.2015, 02:18

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

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

Решение

Решение

@vi_beaulieu 0 / 0 / 0 Регистрация: 13.01.2015 Сообщений: 2
		1
	Найти и напечатать все положительные элементы одномерного массива 13.01.2015, 01:30. Показов 1937. Ответов 2 Метки нет (Все метки) Помогите пожалуйста! Составить структурную схему и программу обработки одномерного массива. Найти и напечатать все положительные элементы одномерного массива A(a₁, a₂, ..., a_n). Одновременно печатать их порядковые номера. 0

@JokeR.BY CAPITAL OF ROCK! 1281 / 708 / 982 Регистрация: 03.03.2010 Сообщений: 2,286
	13.01.2015, 02:18	3
	Сообщение было отмечено vi_beaulieu как решение Решение вот этот вариант блок-схемы чутка получше будет. Миниатюры 1