Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиКалендарьОблакоЗаметкиВсе проекты

В массиве из 10 целых чисел подсчитать сумму элементов более чем в 2 раза превышающих минимальный.

DEVEL JIN Знаток (486), закрыт 5 лет назад
Помогите пожалуйста, очень долго не могу решить эту задачу в delphi7.
Лучший ответ
Ирина Анатольевна Просветленный (20125) 6 лет назад
решение для Console (Delphi)

program Project2;
{$APPTYPE CONSOLE}
uses SysUtils;
var i, mini, n: integer;
sum: real;
a: array [1..100] of integer;
begin
write ('n = ');
readln (n);
for i:=1 to n do
begin
if i=1 then mini:=1;
a[i]:= 10 + random (90);
write (a[i]:4);
if a[i] < a[mini] then mini:=i;
end;
writeln;
writeln ('минимальный элемент = ', a[mini], ' с индексом = ', mini);
for i:=1 to n do
begin
if a[i] / a[mini] > 2 then sum:=sum+a[i];
end;
writeln ('сумма элементов, значение которых более чем в 2 раза', #10, ' превышающих минимальный элемент = ', sum:7:2);
end.
Остальные ответы
Президент интернета Оракул (55440) 6 лет назад
Надо вначале выявить минимальный элемент. А потом, в цикле, вычислить сумму элементов более чем в 2 раза превышающих минимальный.
massiv: 13 73 8 50 99 69 76 1 11 69
vybrannye elementy 13 73 8 50 99 69 76 11 69
massiv: 58 10 40 32 76 78 90 43 87 38
vybrannye elementy 58 40 32 76 78 90 43 87 38
massiv: 46 88 43 31 25 11 16 11 11 99
vybrannye elementy 46 88 43 31 25 99
massiv: 41 28 3 18 27 27 61 1 24 18
vybrannye elementy 41 28 3 18 27 27 61 24 18
massiv: 7 48 55 37 6 98 90 8 89 89
vybrannye elementy 48 55 37 98 90 89 89
massiv: 81 19 29 66 25 32 77 87 94 53
vybrannye elementy 81 66 77 87 94 53
massiv: 49 21 68 37 16 60 55 84 73 27
vybrannye elementy 49 68 37 60 55 84 73
massiv: 7 84 24 35 81 4 64 42 6 8
vybrannye elementy 84 24 35 81 64 42
massiv: 20 21 51 54 87 8 48 12 89 94
vybrannye elementy 20 21 51 54 87 48 89 94
massiv: 64 68 34 48 37 68 2 62 66 94
vybrannye elementy 64 68 34 48 37 68 62 66 94
massiv: 89 30 1 4 62 32 63 37 29 59
vybrannye elementy 89 30 4 62 32 63 37 29 59
massiv: 58 34 23 41 99 87 58 78 87 50
vybrannye elementy 58 99 87 58 78 87 50
massiv: 99 100 19 85 42 49 57 42 81 31
vybrannye elementy 99 100 85 42 49 57 42 81
massiv: 4 80 56 60 17 32 51 48 63 93
vybrannye elementy 80 56 60 17 32 51 48 63 93
massiv: 11 51 29 95 18 28 30 20 76 72
vybrannye elementy 51 29 95 28 30 76 72
massiv: 58 84 71 52 54 6 96 35 56 75
vybrannye elementy 58 84 71 52 54 96 35 56 75
massiv: 80 61 70 82 51 71 100 37 79 37
vybrannye elementy 80 82 100 79
massiv: 88 29 61 43 29 68 76 23 35 34
vybrannye elementy 88 61 68 76
massiv: 74 17 18 19 16 66 65 19 22 61
vybrannye elementy 74 66 65 61
massiv: 27 11 38 65 25 15 57 32 75 37
vybrannye elementy 27 38 65 25 57 32 75 37
massiv: 56 48 16 76 16 82 100 92 92 6
vybrannye elementy 56 48 16 76 16 82 100 92 92
massiv: 99 6 47 78 86 57 85 21 17 5
vybrannye elementy 99 47 78 86 57 85 21 17
massiv: 16 16 94 16 100 43 96 85 92 95
vybrannye elementy 94 100 43 96 85 92 95
massiv: 50 21 17 49 61 97 93 37 74 52
vybrannye elementy 50 49 61 97 93 37 74 52
massiv: 33 36 41 78 33 17 86 9 69 41
vybrannye elementy 33 36 41 78 33 86 69 41
massiv: 28 83 75 69 45 41 96 39 57 59
vybrannye elementy 83 75 69 96 57 59
massiv: 76 3 76 89 74 96 69 21 71 47
vybrannye elementy 76 76 89 74 96 69 21 71 47
massiv: 63 96 2 11 76 99 92 73 16 23
vybrannye elementy 63 96 11 76 99 92 73 16 23
massiv: 51 81 63 91 5 15 1 92 91 17
vybrannye elementy 51 81 63 91 5 15 92 91 17
massiv: 3 79 69 96 89 80 18 12 78 26
vybrannye elementy 79 69 96 89 80 18 12 78 26
massiv: 84 9 24 99 32 3 52 12 32 13
vybrannye elementy 84 9 24 99 32 52 12 32 13
massiv: 2 12 4 4 49 74 36 82 16 87
vybrannye elementy 12 49 74 36 82 16 87
massiv: 75 89 54 30 7 4 96 64 50 66
vybrannye elementy 75 89 54 30 96 64 50 66
Похожие вопросы