Вывести адреса всех отрицательных элементов массива

@Дeнис · Регистрация: 14.03.2011

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

Всем добрый вечер, прошу помочь с заданием:
Объявить одномерный массив. Использовать циклическую структуру для обработки одномерного ряда.
Вариант 12: Дан массив из 16 элементов, вывести адреса всех отрицательных элементов.
Заранее спасибо.

@Sayli · 20.03.2011, 19:59

Pascal

program _;
const n=16;
var
a:array[1..n] of real; i:integer;
begin
for i:=1 to n do
begin
readln(a[i]);
end;
writeln('Îòðèöàòåëüíûå ÷èñëà ìàññèâà');
for i:=1 to n do
begin
if a[i]<0 then write(a[i],'   ');
end;
end.

@Дeнис 0 / 0 / 0 Регистрация: 14.03.2011 Сообщений: 5
		1
	Вывести адреса всех отрицательных элементов массива 20.03.2011, 19:27. Показов 1955. Ответов 1 Метки нет (Все метки) Всем добрый вечер, прошу помочь с заданием: Объявить одномерный массив. Использовать циклическую структуру для обработки одномерного ряда. Вариант 12: Дан массив из 16 элементов, вывести адреса всех отрицательных элементов. Заранее спасибо. 0

	20.03.2011, 19:59

Опции темы

Вывести адреса всех отрицательных элементов массива

Решение