IPB
ЛогинПароль:

 
 Ответить  Открыть новую тему 
> Паскаль, помогите написать алгоритм решения пожалуйста, Нужно написать алгоритм решения программы (т.е //комментарии строк)
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 2
Пол: Мужской

Репутация: -  0  +


Нужно написать алгоритм решения программы (т.е //комментарии строк). Может кто поможет пожалуйста.

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.


 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 




- Текстовая версия 23.05.2018 2:32
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"