var
arr:array[1..1000] of integer;
i,N:integer;
max:integer;
begin
max:=1;
write('Укажите кол-во эл-ов - ');
read(N);
for i:=1 to N do//Присваивание и вывод массива
begin
arr[i]:=1+random(100);
write(arr[i],' ');
if arr[i]>max then max:=arr[i];
end;
writeln;
writeln('Максимальный эл-т - ',max);
for i:=1 to N do//Увеличение чет. эл-ов
begin
if arr[i] mod 2=0 then arr[i]:=arr[i]+max;
write(arr[i],' ');
end;
end.
Объяснение:
1. Для записи алгоритмов используют несколько словесный
графический
программный
Словесный – это записи алгоритма на естественном языке, но с тщательно отработанным набором слов и фраз, не допускающих повторений, синонимов, двусмысленности, лишних слов. Допускается использование математических символов. При графическом описания алгоритма осуществляется с блок-схем. Программный это запись алгоритма на языке программирования (в виде компьютерной программы).
2. Налить 9 литров. Перелить в другое ведро 5 литров. В 9-ти литровом останется 4 литра. Из 5-ти литрового вылить воду. Перелить из 9-ти литрового оставшиеся 4 литра в 5-ти литровое ведро. Наполнить 9-ти литровое ведро водой. Перелить в 5-ти литровое ведро 1 литр (больше в 5-ти литровое не влезет). Из 5-ти литрового вылить воду. В 9-ти литровом останется 8 литров. Перелить в 5-ти литровое ведро. ИТОГ: в 9-ти литровом останется 3 литра.
3. Прямоугольник - блок вычислений
Ромб - условие
Параллелограмм - блок ввода-вывода данных
овал - начало и конец алгоритма
Стрелки, соединяющие эти фигуры, и задают порядок выполнения действий.
Cyr=['А'..'я','Ё','ё'];
Lat=['A'..'z'];
Dig=['0'..'9'];
var
s,sC,sL,sD,sO:string;
i:integer;
begin
Writeln('Введите произвольную строку символов');
Readln(s);
sC:=''; sL:=''; sD:=''; sO:='';
for i:=1 to Length(s) do
if s[i] in Cyr then sC:=sC+s[i]
else
if s[i] in Lat then sL:=sL+s[i]
else
if s[i] in Dig then sD:=sD+s[i]
else sO:=sO+s[i];
Writeln('Кириллица: ',sC);
Writeln('Латиница : ',sL);
Writeln('Цифры : ',sD);
Writeln('Прочее : ',sO)
end.
Тестовое решение:
Введите произвольную строку символов
Запишем следующее выражение: y=5*Sin(x)/(3.5*x+Sqr(x); (язык Pascal)
Кириллица:
Латиница : ySinxxSqrxPascal
Цифры : 535
Прочее : : =*()/(.*+(); ( )
Примечание: поскольку в задании не сказано, что требуется записать все использованные символы только по одному разу, они повторяются.