Школьные задачки Опции

[Syntheria]

Я в паскале не бум-бум. А в школе требуют. Великие Мозги, решите пожалуйста две задачки)) Нужно создать блок-схему, саму программу и трассировочную таблицу. Зарранее благодарю

1. В одномерном массиве замените нулем все отрицательные элементы

2. В одномерном массиве поменяйте местами наибольший и наименьший элементы

[Perfez]

Решение 1-ой задачи:

const
n=10
var
a:array [1..n] of longint;
i:longint;
Begin
For i:=1 to n do
Begin
Read(a[i]);
If a[i]<0 then a[i]:=0;
End;
End.

Решение 2-ой задачи:

const
n=10;
var
i,min,max,k,j:longint;
a:array [1..n] of longint;
Begin
min:=0;
max:=0;
For i:=1 to n do
Begin
Read(a[i]);
If min>a[i] then 
Begin
min:=a[i];
k:=i;
End;
If max<a[i] then 
Begin
max:=a[i];
j:=i;
End;
End;
i:=a[j];
a[j]:=a[k];
a[k]:=i;
For i:=1 to n do
WriteLn(a[i]);
End.

Сообщение отредактировано: Perfez - 12.03.2007 14:08

[Syntheria]

Perfez

Спасибо большое. А таблицы и блок-схемы будут?


ЗЫ. Я знаю, что я наглая