lei123
14.05.2020 02:20

Зачем нужна вот эта стрелочка во Flash?


Зачем нужна вот эта стрелочка во Flash?

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
jhgtreedhhuuu
15.03.2023 01:47
Const n=5; // обязательно должно быть нечетным
var
  i,j,max,x,k:integer;
  a:array[1..n,1..n]of integer;
begin
writeln('Исходный массив:');
for i:=1 to n do
  begin
  for j:=1 to n do
    begin
    a[i,j]:=random(20);
    write(a[i,j]:4);
    end;
  writeln;
  end;
max:=a[1,1];
for i:=1 to n do
  begin
  if a[i,i]>max then max:=a[i,i];
  if a[i,n+1-i]>max then max:=a[i,n+1-i];
  end;
k:=n div 2+1;
x:=a[k,k];
for i:=1 to n do
  begin
  if a[i,i]=max
  then a[i,i]:=x;
  if a[n+1-i,i]=max then a[n+1-i,i]:=x;
  end;
a[k,k]:=max;
writeln('Измененный массив:');
for i:=1 to n do
  begin
  for j:=1 to n do
    write(a[i,j]:4);
  writeln
  end
end.
0,0(0 оценок)
Ответ:
Lia20020313
08.04.2021 04:06
Type
  V = array of real;

function SumPos(a:V): real;
var
  i: integer;
  s: real;
begin
  s := 0;
  for i := 0 to Length(a, 0) - 1 do
    if a[i] > 0 then s := s + a[i];
  Result := s
end;

var
  A, B, C: V;

begin
  A := new real[10] (17.2, 9.3, 14.5, -11.7, 4.3, 5.9, -11.9, 12.3, -14.1, -15.3);
  B := new real[12] (-1.2, 4.2, 5.9, -18.1, 21.2, -3.1, -5.3, -12.2, 21.4, -4.5, 8.2, 9.4);
  C := new real[8] (3.5, 8.4, -3.2, 4.5, -8.4, -9.5, 1.5, 9.3);
  writeln('Сумма положительных элементов массива А ',SumPos(A));
  writeln('Сумма положительных элементов массива B ',SumPos(B));
  writeln('Сумма положительных элементов массива C ',SumPos(C));
end.

Тестовый прогон:

Сумма положительных элементов массива А 63.5
Сумма положительных элементов массива B 70.3
Сумма положительных элементов массива C 27.2
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота