А1 = 3
В1 = А1 + 1 = 3 + 1 = 4
А2 = В1 - А1 = 4 - 3 = 1
В2 = А1 - А2 * 2 = 3 - 1 * 2 = 3 - 2 = 1
С2 = А1 + В2 = 3 + 1 = 4
D2 = В1 / 2 = 4 / 2 = 2
По значениям ячеек диапазона A2:D2 была построена диаграмма:
А2 = 1 В2 = 1 С2 = 4 D2 = 2
Смотрим на диаграммы:
На диаграмме б все столбики разные, а у нас два значения одинаковые => не подходит
На диаграмме с три сектора равные, а у нас два значения одинаковые => не подходит
На диаграмме а две полоски одинаковые, но две другие не соблюдают соотношение увеличения в 2 раза, как у наших значений => не подходит
На диаграмме г две полоски одинаковые и две другие соблюдают соотношение увеличения в 2 раза у двух, как у наших значений => подходит
<span>var
a, b, S, : real;
begin
write('Введите a: ');
readln(a);
write('Введите b: ');
readln(b);
s := a * b;
write('Площадь прямоугольника -- ', s, ';
end<span>.</span></span>
{
правильная программа, кол-во элементов вводится с клавиатуры
}
Program Summa;
uses crt;
type a1= array of integer;
var a: a1;
m,s,n: integer;
procedure Input;
const p=1;
const q=20;
var i: integer;
begin
randomize;
begin
for i:=0 to n-1 do a[i]:=random(q-p+1)+p;
write('a[',i,']=');
readln(a[i]);
end;
end;
procedure Print;
var i: integer;
begin
write('Массив целых чисел А: ');
for i:=0 to n-1 do write(' ',a[i]);
writeln;
writeln;
end;
procedure Sum( m: integer);
var i: integer;
begin
s:=0;
for i:=0 to m-1 do s:=s+a[i];
end;
Begin
ClrScr;
write('введите кол-во элементов в массиве: ');
readln(n);
SetLength(a, n);
Input;
ClrScr;
Print;
write('Сколько элементов суммировать: ');
readln(m);
Sum(m);
writeln;
writeln('Сумма ',m,' элементов масссива равна: ', s);
Sum(n);
writeln;
writeln('Сумма всех ',n,' элементов массива равна: ', s);
Writeln ('Среднее арифмитическое всех элементов равно ', s/n);
Readkey;
end.