Сделать скрин решения и приклеить в бланке ответа: Составить блок-схему и программу на Паскале для задачи: Дан прямоугольник со сторонами а и в. Вычислить площадь и периметр прямоугольника
//Pascal var A: array [1..5] of integer; min, max, minInd, MaxInd: integer; i: byte; begin writeln('Заполнение массива.'); for i := 1 to 5 do begin write('А[', i, '] = '); readln(A[i]); end; writeln; Max := A[1]; Min := A[1]; for i := 1 to 5 do begin if Max < A[i] then begin Max := A[i]; MaxInd := i; end; if Min > A[i] then begin Min := A[i]; MinInd := i; end; end; writeln('Номер минимального элемента = ', MinInd); writeln('Номера минимального и максимального = ', MinInd, ' и ',MaxInd); end.
// PascalABC.NET 3.3, сборка 1579 от 18.11.2017 // Внимание! Если программа не работает, обновите версию!
begin var x:=ArrGen(8,i->Ln(i+1.1)); x.Println; var k:=x.Where(t->(Sin(t)>-0.5) and (Sin(t)<=0)).Count; var im:=x.IndexMin; Writeln('На указанном интервале найдено элементов: ',k); Writeln('Минимальный элемент массива, равный ',x[im], ' имеет порядковый номер ',im+1) end.
Результат 0.0953101798043249 0.741937344729377 1.1314021114911 1.41098697371026 1.62924053973028 1.80828877117927 1.96009478404727 2.09186406167839 На указанном интервале найдено элементов: 0 Минимальный элемент массива, равный 0.0953101798043249 имеет порядковый номер 1
var
A: array [1..5] of integer;
min, max, minInd, MaxInd: integer;
i: byte;
begin
writeln('Заполнение массива.');
for i := 1 to 5 do
begin
write('А[', i, '] = '); readln(A[i]);
end;
writeln;
Max := A[1]; Min := A[1];
for i := 1 to 5 do
begin
if Max < A[i] then begin Max := A[i]; MaxInd := i; end;
if Min > A[i] then begin Min := A[i]; MinInd := i; end;
end;
writeln('Номер минимального элемента = ', MinInd);
writeln('Номера минимального и максимального = ', MinInd, ' и ',MaxInd);
end.
// Внимание! Если программа не работает, обновите версию!
begin
var x:=ArrGen(8,i->Ln(i+1.1)); x.Println;
var k:=x.Where(t->(Sin(t)>-0.5) and (Sin(t)<=0)).Count;
var im:=x.IndexMin;
Writeln('На указанном интервале найдено элементов: ',k);
Writeln('Минимальный элемент массива, равный ',x[im],
' имеет порядковый номер ',im+1)
end.
Результат
0.0953101798043249 0.741937344729377 1.1314021114911 1.41098697371026 1.62924053973028 1.80828877117927 1.96009478404727 2.09186406167839
На указанном интервале найдено элементов: 0
Минимальный элемент массива, равный 0.0953101798043249 имеет порядковый номер 1