Решить эту на второй планете системы центр межзвездная экспедиция землян обнаружила следы древней цивилизации центрион - прародительницы жизни во вселенной. на планете продолжали работать роботы, монтируя компьютерные сети. земляне обнаружили пять разных видов роботов (оранжевого, салатового, янтарного, лазурного и бежевого цветов). они оценили размеры сетей (7, 9, 11, 12 и 14 км). а когда роботы отправились создавать новые сети, земляне проверили, какую скорость передачи информации имеют сети (7, 8, 9, 10 и 11 мбит/сек). из предыдущего опыта земляне знали, что самые быстрые сети для противодействием вторжению инопланетян. разведывательная группа получила указание тщательнее исследовать творения роботов на планете. фронт работ был разделен на четырех человек, каждый из которых подготовил отчет о своих исследованиях. разведчикам свести характеристики сетей разных роботов в единую таблицу и отсортирутировать информацию в ней так, чтобы стало ясно, каких роботов необходимо изолировать для уменьшения противодействия землянам.

👇

Ответ:

t12345k

14.07.2021

For( i = 0; i < 5; i++ ) { ind[ i ] = i; a[ i ] = size[ i ] * speed[ i ]; }
// Предположим, что тут надо умножать, хотя из условия это неясно.

for( i = 0; i < 5-1; i++ )
for( j = i+1; j < 5; j++ )
if (a[ i ] < a[ j ]) { swap[ a[ i ], a[ j ]); swap( ind[ i ], ind[ j ] ); }

for( i = 0; i < 4; i++ ) printf( "%d => %d\n", ind[ i ], a[ i ] );

4,5(90 оценок)

Открыть все ответы

Ответ:

sd16sv

14.07.2021

Program znanija_com;
const
n = 5;
m = 5;
rnd = 9;
type
tArray = array[1..n, 1..m] of integer;
var
arr : tArray;
i,j, sum_ch, sum_nch, sum_diag, max_num, max_index_1, max_index_2 : integer;
begin
randomize;
writeln ('Исходная матрица:');
for i:=1 to n do begin
    for j:=1 to m do begin
      arr[i,j] := random(rnd);
      if arr[i,j] mod 2 = 0 then sum_ch := sum_ch + 1
        else sum_nch := sum_nch + 1;
      write(arr[i, j], ' ');
    end;
    writeln();
end;
for i:=1 to n do
    sum_diag := sum_diag + arr[i,i];
max_num := arr[1,1];
max_index_1 := 1;
max_index_2 := 1;
for i:=1 to n do begin
    for j:=1 to m do begin
      if arr[i, j] > max_num then begin
        max_num := arr[i, j];
        max_index_1 := i;
        max_index_2 := j;
      end;
    end;
end;
writeln('Колечество четных элементов равно ', sum_ch);
writeln('Колечество нечетных элементов равно ', sum_nch);
writeln('Сумма главной диаганили равна ', sum_diag);
writeln('Максимальное число равно ', max_num, ' Находится [',max_index_1, ', ', max_index_2, ']');
readln();
end.

4,8(12 оценок)

Ответ:

goodsmalgirl

14.07.2021

Const
MAX_SIZE = 10;

var
a: array[1..MAX_SIZE] of integer;
i, size: integer;

procedure delete_odd_elements();
var i, j: integer;
begin
i := 1;
repeat
    if odd(a[i]) then
    begin
      dec(size);
      for j := i to size do
        a[j] := a[j + 1]
    end
    else inc(i);
until i > size;
end;

begin
writeln('Исходный массив: ');
size := MAX_SIZE;
for i := 1 to size do
begin
    a[i] := random(100);
    write(a[i] : 3);
end;
delete_odd_elements;
writeln;
writeln('Полученный массив: ');
for i := 1 to size do
    write(a[i] : 3);
end.

4,4(49 оценок)

Это интересно:

Здоровье

19.02.2020

Гель алоэ вера: эффективное средство от прыщей и других проблем кожи...

Компьютеры-и-электроника

04.02.2020

Как загрузить видео, созданное в Windows Movie Maker, на YouTube...

Компьютеры-и-электроника

14.03.2020

Как построить классный дом в Sims 3...

Дом-и-сад