помогите риальзовать задачу :3 под номером 1

[solovey97]

Задача по масссивам

[VIK_aka_TOR]

Начало битвы экстрасенсов объявляется открытым.

[Stilet]

Я угадаю эту задачу с трех итераций

[Kilix]

Сообщение от solovey97

Задача по масссивам

И это все, а где задача?

Stilet Я угадаю эту задачу с трех итераций

Думаю человек хочет узнать что такое массивы не иначе не как.

[solovey97]

Помогите Реализовать 1 задачу , алгоритм к ней же

[Аватар]

Ну это объединил с новой темой, только условие лабы я практически не вижу, напрягаться и увеличивать влом. ТС же влом набрать его от руки

[Stilet]

Я тоже не вижу...

[Kilix]

Вот что удалось прочитать:
Дана матрица A(n) Сформулировать массив сотвественно элементом которого равен ......... .
матрице A если больше нуля или ста, если соотвествующий элемент матрицы А мень или равно нулю.

[Stilet]

Вот что удалось прочитать:

Как сообщает наш корреспондент с раскопок древней библиотеки Ахиресии...

[Dvoishnik]

var 
I:integer;
c,q:array [20] of integer;
begin 
for i:=1 to 20 do
   readLn(q[i]);

for i:=1 to 20 do
   if q[i]>0 then 
    c[i]:=q[i] else c[i]:=100; 

for i:=1 to 20 do
   writeLn(c[i]);
end.