alanatan5757
?>

На языке паскаль ! задан вещественный массив. найти сумму отрицательных элементов после максимального элемента массива - ! буду за

Информатика

Ответы

IrinaSolodukhina1495

Program Massive;

uses Crt;

const

  M = 6;

var

  D: array [1..M] of real;

  i: integer;

  sum: real;

  indexMax: integer;

begin

    ClrScr;

    Randomize;

    writeln ('Massive:');

    indexMax := 1;

    D[1] := 10;

    D[1] := D[1] - Random(20);

    writeln (D[1]);

    for i:= 2 to M do

    begin

         D[i] := 10.0;

         D[i] := D[i] - Random(20);

         writeln (D[i]);

         if (D[i] > D[indexMax]) then

         begin

         indexMax := i;

         end;

    end;

    writeln ('indexMax = ', indexMax);

    sum := 0;

    for i:= indexMax + 1 to M do

      if (D[i] < 0) then sum := sum + D[i];

    writeln ('Sum = ', sum);

    readln

end.

Segyn1218
1. есть число n.  пускай n=123. что будет, если разделить его на 10? получится 12,3. то есть 12 - целая часть, а 3 - остаток. далее снова делим на 10. 1,23. и в последний раз: 0,123. целая часть =0. на этом останавливаемся. а сколько раз выполнили деление? 3. вот и ответ. теперь запишем на паскале: как видно из вышенаписанного, нужно продолжать выполнять действия, пока целая часть не равна 0. то есть while n> 0 do и у нас есть некоторый счетчик итераций, значение которого и будет являться ответом. а тело цикла: n div 10 (целочисленное деление) inc(k) (увеличение счетчика) вторая: как я понял, нужно просто вывести на экран то, что должно получиться? нужно в цикле пройти по каждому символу. если он равен "*" (if s[i] = '*' then), ничего не делать. иначе вывести его два раза (write(s[i], добавить данные в начало файла нельзя. нужно либо записывать в новый, либо перезаписывать исходный (предварительно считав все в память)
Varezka86179

Английский:

“In addition to word processors designed for

creating and processing words on a computer, there are a number of

programs that automate human work

with text information ". The result obtained using

translate the same program into Russian. This text

the original phrase and the final result. Give your comments

tari.

Казахский:

«Арналған мәтіндік процессорлардан басқа

сөздерді компьютерде құру және өңдеу, олардың саны бар

адам жұмысын автоматтандыратын бағдарламалар

мәтіндік ақпаратпен ». Пайдалану арқылы алынған нәтиже

сол бағдарламаны орыс тіліне аударыңыз. Бұл мәтін

түпнұсқа фраза және соңғы нәтиже. Түсініктемелеріңізді беріңіз

тарих.

Объяснение:

Выбери язык который больше нравится

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

На языке паскаль ! задан вещественный массив. найти сумму отрицательных элементов после максимального элемента массива - ! буду за
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Борисовна_Дмитриевич1003
Varezka86179
МуратМарина1140
Оксана170
sveta740450
Филипп1054
os2854
valera850515
menesmir
N-odes-art-school410
Mariya694
lemoh
petrosyan35
karpovaveronika196
Babushkina27