Написать программу, которая вычисляет среднюю (за неделю) температуру воздуха. исходные данные должны вводиться во время работы программы. рекомендуемый вид экрана во время работы программы ниже (данные, введенные пользователем, выделены полужирным шрифтом введите температуру воздуха за неделю. понедельник -> 12 вторник -> 10 ' среда -> 16 четверг -> 18 пятница -> 17 суббота -> 16 воскресенье -> 14 средняя температура за неделю: 14.71 град.

Var
  a: array[1..7] of string = ('Понедельник', 'Вторник', 'Среда', 'Четверг', 'Пятница', 'Суббота', 'Воскресенье');
  av: real; i, t: integer;

begin
  writeln('Введите температуру воздуха за неделю.');
  for i := 1 to 7 do
  begin
    write(a[i], ' -> '); readln(t); av := av + t;
  end;
  av := av / 7;
  writeln('Средняя температура за неделю: ', av:0:2, ' град.');
  readln;
end.

Объяснение:

#include <iostream>

using namespace std;

int main()

{

   //1 - 2 задания

   setlocale(LC_ALL, "Russian");

   system("color A");

   int A,a;

   cout << "Введите число: ";

   cin >> a;

   while (a--)

       cout << a << ' ';

   cout << endl;

   //2

   cout << "Введите число: ";

   cin >> A;

   A -= !(A & 1) + 2;

   while ((A += 2) < 1000)

   {

       cout << A << ' ';

   }

}

//

//3 задание

#include <iostream>

using namespace std;

int main()

{

   for (int i = 1; i < 10; i += 2)

       cout << i * i << ' ';

}

Rem BASIC-256
cls
errors = 0
print "Введите текст > ";

rem Пользователь вводит текст
input a$

rem Перебираем все буквы с начала и до предпоследней
for i=1 to length(a$)-1

rem Если встречаем букву Ч или Щ
if mid(a$, i, 1) = "ч" or mid(a$, i, 1) = "щ" then

rem Тогда проверяем следующую за ней букву.
rem Если это буква я, тогда подсчитываем очередную ошибку
if mid(a$, i + 1, 1) = "я" then errors = errors + 1
end if

rem Переходим к следующей букве
next i

rem Вывод результата
print "Количество ошибок в тексте ";
print errors

rem Конец программы
end