Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Школьные задачки

Автор: Syntheria 12.03.2007 17:00

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

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

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

Автор: Perfez 12.03.2007 18:03

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


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-ой задачи: smile.gif

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.



Автор: Syntheria 12.03.2007 23:21

Perfez

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


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

Автор: klem4 12.03.2007 23:28

Наглость конечно второе счастье ... Тут: http://forum.pascal.net.ru/index.php?showtopic=4270

Была ?