Очень простой алгоритм:
Program Alexey;
{программа запрашивает у пользователя значения ежедневной температуры за 14 дней, и выводит максимальное и минимальное значения и в какие дни температруа достигала этих значений, а также вычисляет среднюю температуру за 2 недели}
uses crt;
const n=14;
var
i, daymax, daymin:integer;
t,max,min,sum:real;
begin
writeln('Введите температуру за каждый день');
write('День 1-й: T = ');
readln(t);
max:=t;
min:=t;
sum:=t;
for i:=2 to 14 do //организуем цикл
begin
write('День ',i,'-й: T = ');
readln(t);
if t>max then
begin
max:=t; // найдено новое максимальное значение
daymax:=i; // запоминаем соответствующий номер дня
end;
if t<min then
begin
min:=t; // найдено новое минимальное значение
daymin:=i; // запоминаем соответствующий номер дня
end;
sum:=sum+t; //суммируем все значения t
end;
writeln();
writeln('Максимальная температура была на ',daymax,'-й день: ',max,' градусов');
writeln('Минимальная температура была на ',daymin,'-й день: ',min,' градусов');
writeln('Средняя температура за 14 дней: ',sum/14,' градусов');
end.
CLS
INPUT a$
L =
LEN(a$)
i = 1
DO WHILE
i < L + 1
s$ =
MID$(a$, i, 1)
c =
VAL(s$)
IF c \ 3
= c / 3 THEN
a$ =
LEFT$(a$, i) + s$ + RIGHT$(a$, L - i)
L = L +
1
i = i +
1
END IF
i = i +
1
LOOP
<span>PRINT a$</span>
1. trunc - округляет до предыдущего числа(trunc(29.9)= 29
round - округляет до близ лежащего числа
round(29.9)= 30
2.
/- просто делит
mod - деление с остатком
div - целочисленное деление.
Для удобства.
3. writeln(a);
4. отношение <>=
логические and, or, xor, not
5. Оператор присваивания := присваивает значение. А = служит приравниванию.
6. 1,2,4
Const n=6; m=9;
var
a:array[1..n,1..m] of integer;
x:integer;
begin
Randomize;
writeln('Исходный массив:');
for var i:=1 to n do
begin
for var j:=1 to m do
begin
a[i,j]:=random(100);
write(a[i,j]:4);
end;
writeln;
end;
for var i:=1 to n do
for var j:=1 to m div 2 do
begin
x:=a[i,j]; a[i,j]:=a[i,m-j+1]; a[i,m-j+1]:=x;
end;
writeln('Полученный массив:');
for var i:=1 to n do
begin
for var j:=1 to m do write(a[i,j]:4);
writeln;
end;
end.
Пример:
Исходный массив:
96 78 14 96 32 17 7 21 13
83 27 68 66 34 17 98 15 67
70 22 32 80 75 46 92 0 70
62 37 65 39 29 55 94 12 48
86 1 11 12 81 48 58 71 87
42 67 51 31 70 42 52 17 0
Полученный массив:
13 21 7 17 32 96 14 78 96
67 15 98 17 34 66 68 27 83
70 0 92 46 75 80 32 22 70
48 12 94 55 29 39 65 37 62
87 71 58 48 81 12 11 1 86
0 17 52 42 70 31 51 67 42