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

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

Форум «Всё о Паскале» _ Общие вопросы разработки программ _ Паскаль, помогите написать алгоритм решения пожалуйста, Нужно написать алгоритм решения программы (т.е //комментарии строк)

Автор: damdin 6.04.2017 19:09

1.Даны целые числа a1, a2, ..., an . Все члены последовательности с четными номерами, предшествующие первому по порядку члену со значением max (a1, a2, ..., an), домножить на max (a1, a2, ..., an).

var
a:array [1..100] of integer;
begin
writeln ('vvedite n:');
readln(n);
writeln ('vvedite posledovatelnost');
for i:=1 to n do
readln(a[i]);
writeln ('posledovatelnost');
max:=1;
for i:=1 to n do
begin
write(a[i],' ');
if a[max]<a[i] then max:=1;
end;
writeln;
writeln ('posledovatelnost posle obrabotki');
for i:=1 to n do
begin
if ((i mod 2)=0)and(i<=(max-1)) then a[1]:=a[i]*a[max];
write(a[i],' ');
end;
end.


2.Спортлото: 6 из 49. Составьте программу, в которой загадываются, иначе говоря, создаются 6 разных чисел, значения которых никак не связаны друг с другом, а величина лежит в интервале от 1 до 49.
Указание. Для решения задачи используйте множества. Выражение random(49) +1 дает случайное целое число в интервале от 1 до 49.

PROGRAM SPORTLOTO;
var
S:SET of 1..49;
i,N:integer;
begin
ramdomize;
S:=[];
for i:=1 to 6 do
begin
repeat
N:=random(49)+1;
UNTIL not(N in S);
S:=S+[N];
end;
for i:=1 to 94 do
if i in S then writeln(i);
end.