Var a,b,c:real; begin readln(a,b,c); if (a = b) and (b = c) then begin writeln ('Треугольник равносторонний'); writeln('Его высота = ',(sqrt(3) * a)/2:0:3) end else if (a = b) or (b = c) or (c = a) then begin writeln('Треугольник равнобедренный'); writeln('Его полупериметр = ',(a+b+c)/2); end else begin writeln('Треугольник разносторонний'); if (a>b) and (a>c) then writeln('Большая сторона = ',a) else if (b>a) and (b>c) then writeln('Большая сторона = ',b) else writeln('Большая сторона = ',c); end; end.
В программе определяется максимальное значение в массиве Dat и номер элемента, имеющего это максимальное значение. В терминах задачи - определяется максимальное количество самолетов и число, когда было отправлено это максимальное количество самолетов. Значение переменной m после завершения цикла будет = 6, а значение переменной day будет = 10. На экран будет выведено значение 10. Начальные присваивания: day:=1; m := Dat[1]; Затем в цикле элементы массива (начиная со второго) сравниваются с текущим значением переменной m (Dat[k] >= m). Если это условие выполняется, то значение переменных m и day меняются. Таким образом, после проверки всех элементов массива в переменной m будет записано максимальное значение (точнее - последнее максимальное, так как знак сравнения >=), а в переменной day - номер элемента массива, имеющего это максимальное значение.
begin
readln(a,b,c);
if (a = b) and (b = c) then begin
writeln ('Треугольник равносторонний');
writeln('Его высота = ',(sqrt(3) * a)/2:0:3)
end else
if (a = b) or (b = c) or (c = a) then begin
writeln('Треугольник равнобедренный');
writeln('Его полупериметр = ',(a+b+c)/2);
end else
begin
writeln('Треугольник разносторонний');
if (a>b) and (a>c) then writeln('Большая сторона = ',a) else
if (b>a) and (b>c) then writeln('Большая сторона = ',b) else
writeln('Большая сторона = ',c); end;
end.
Значение переменной m после завершения цикла будет = 6, а значение переменной day будет = 10. На экран будет выведено значение 10.
Начальные присваивания:
day:=1; m := Dat[1];
Затем в цикле элементы массива (начиная со второго) сравниваются с текущим значением переменной m (Dat[k] >= m). Если это условие выполняется, то значение переменных m и day меняются. Таким образом, после проверки всех элементов массива в переменной m будет записано максимальное значение (точнее - последнее максимальное, так как знак сравнения >=), а в переменной day - номер элемента массива, имеющего это максимальное значение.