Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
3*2=6128*512*6=393216ъ128+512=640640: 10=6464*6=384кб
program nn;
uses crt;
var a: array [1..20] of real;
t: real;
i,n,min: integer;
begin
{ввод последовательности, это самостоятельно}
min : = 1;
for i : = 1 to 20 do
if a[i] < a[min] then
min : = i;
end;
t : = a[min];
a[min] : = a[20-n];
a[20-n] : = t;
end.
в блок схемах не сильна
var n: integer;
s,s0: real;
n: =1;
s: =10;
repeat
n: =n+1;
s: = s + (100+p)*s0/100;
s0: =(100+p)*s0/100;
until s> 200;
writeln(s);
февраль зимний месяц
май весенний месяц
август летний месяц
сентябрь осенний месяц
Популярные вопросы