5. отметьте операции при редактировании документов. а. вставка б. удаление в. замена г. изменение шрифта д. изменение начертания е. изменение цвета ж. поиск и замена з. выравнивание
ответ:max := -1001;for j := 1 to N doif (abs(a[j]) mod 10 <> 3) and (a[j]<0) thenif a[j]>max then max := a[j];if max=-1001 then write('Не найдено') else write(max);Объяснение:max := -1001;
Присваиваем переменной max, которая должна содержать максимальное значение, минимальное значение -1 ( -1000 -1 = -1001).
for j := 1 to N doif (a[j] mod 10 <> 3) and (a[j]<0) thenif a[j]>max then max := a[j];
Пробегаемся по элементам массива и смотрим: если остаток модуля элемента от деления на 10 неравен 3 (т.е. не оканчивается цифрой 3) и элемент меньше 0 (т.е. отрицательный), тогда, при условии, что элемент больше текущего максимального значения, переменную max перезаписываем -- присваиваем ей текущий элемент.
if max=-1001 then write('Не найдено') else write(max);
Если переменная max содержит изначальное значение (-1001), то выводим на экран "Не найдено", иначе выводим на экран max.
Некорректная задача. Блок схема нужна только тогда, когда есть условия, циклы и т. п. Здесь f вычисляется в одну строчку:
var f: real; var x: real;
x := 8; { 16, 24 }
f := 4*x*x*x + 2*x - 1;
Далее идет исправленное решение задачи для Бочонка228 (в его задаче просто не могу изменить решение):
type pupil = record name: string[20]; sex: (female, male); age: integer; height: 140..200 end;
begin
var i, a: integer;
var group: array [1..10] of pupil;
for i:= 1 to 10 do begin writeln(i); writeln('Name:'); readln(group[i].name); writeln('Sex (1-male, 2-female):'); readln(a);
if a = 1 then begin group[i].sex := pupil.male; end else begin group[i].sex := pupil.female; end;
group[i].age := 0; while (group[i].age < 6) or (group[i].age > 100) do begin writeln('Age (6-100):'); readln(group[i].age); end;
group[i].height := 0; while (group[i].height < 140) or (group[i].height > 200) do begin writeln('Height (140-200):'); readln(group[i].height); end; end;
for i := 1 to 10 do begin if (group[i].age <= 30) and (group[i].sex = pupil.female) then begin writeln(group[i].name); writeln(group[i].age); writeln(group[i].height); end end
Присваиваем переменной max, которая должна содержать максимальное значение, минимальное значение -1 ( -1000 -1 = -1001).
for j := 1 to N doif (a[j] mod 10 <> 3) and (a[j]<0) thenif a[j]>max then max := a[j];Пробегаемся по элементам массива и смотрим: если остаток модуля элемента от деления на 10 неравен 3 (т.е. не оканчивается цифрой 3) и элемент меньше 0 (т.е. отрицательный), тогда, при условии, что элемент больше текущего максимального значения, переменную max перезаписываем -- присваиваем ей текущий элемент.
if max=-1001 then write('Не найдено') else write(max);Если переменная max содержит изначальное значение (-1001), то выводим на экран "Не найдено", иначе выводим на экран max.
Пример работы: