Решить в VBA(составить алгоритм написания программы):

Выдать клиенту счет за отопление по правилу:
летние месяцы – 0 руб.
зимние месяцы – 5а руб.
осенние месяцы – 3а руб
весенние месяцы – 2,5а руб.
а – за с клавиатуры.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Confident23
24.10.2021 22:52

Здесь он провел ряд экспериментов по казахстанской программе. Благодаря проведенным исследованиям казахстанские ученые получили ряд фундаментальных результатов в области молекулярной биологии, биохимии, материаловедения. В частности специалисты в области молекулярной биологии, проведя селекцию клеток растений, побывавших на станции «Мир» вместе с космонавтом Аубакировым, вывели новые сорта картофеля, работают над улучшением сортов других сельхозкультур. Также, благодаря наблюдениям из космоса удалось проследить, как распространяются соли и пыль со дна Аральского моря, исследовали состояние серебристых облаков, что очень важно для космонавтики, при возвращении летательных

аппаратов на землю. Проведя большую работу в космосе, экипаж совершил посадку 10 октября 1991 года.

Какой вклад в развитие страны внес Тохтар Аубакиров? Опираясь на информацию данную в тексте, запиши два примера.

а)

б)

Задание 2. Права и обязанности.

1) Перечисли страны, с которыми граничит Казахстан.

2) Запиши дату, когда был прият Казахстан в ООН?

3) Конституция – это….

4) Распредели в два столбика права и обязанности.

а) Иметь аккуратный вид;

б) Право на учёбу;

в) Бережно относиться к имуществу школы;

г) Право на жизнь;

д) Право на отдых;

е) Придерживаться общепринятым нормам поведени

0,0(0 оценок)
Ответ:
Russland2000
05.03.2020 07:45
Const n=8;
var x : array[1..n] of real;
   i : integer; min : real;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
 begin
  x[i]:=20*random-10;
  write(x[i]:6:2,' ');     
 end;
 writeln;
min:=x[1];
for i:=2 to n do
 if x[i] < min then min:=x[i];
writeln('min=',min:6:2);
for i:=1 to n do
 if x[i]<0 then x[i]:=min;
writeln('Измененный массив:');
for i:=1 to n do write(x[i]:6:2,' ');
end.

Пример:
Исходный массив:
 -7.84  -9.97   7.00  -8.26  -7.71  -3.88   7.59  -2.32 
min= -9.97
Измененный массив:
 -9.97  -9.97   7.00  -9.97  -9.97  -9.97   7.59  -9.97 
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота