Создать массив из 10 целых чисел принадлежащих промежутку -50 до 50. посчитать сумму положительных и количество отрицательных элементов массива

Var     i,s,k: integer;     a: array[1..10]of integer; begin for i: =1 to 10 do   begin   a[i]: =random(-50,50);   write(a[i],' ');   if a[i]> 0 then s: =s+a[i];   if a[i]< 0 then k: =k+1;   end; writeln; writeln ('сумма положительных: ',s); writeln ('количество отрицательных: ',k); end.

Выводит массив из рандомных 20 чисел между -50 и 50допустим0 1 -2 1 2 3 5 4 5 8 9 10 14 -14 8 -11 10 45 6 1  затем выводит макс. кол-во похожих 0  1  -2  1  2 3 5 4 5 8 9 10 14 -14 8 -11 10 45 6  13  и теперь сумму четных элементов 0  1  -2  1  2  3  5  4  5  8  9  10  14  -14  8  -11  10  45  6  1 1+1+3+4+8+10-14-11+45+1=48 var a: array[1..20] of integer; i,j,k,l,s: integer; begin for i: =1 to 20 do begin randomize; a[i]: =random(101)-50; write(a[i],' '); end; k: =0; l: =0; for i: =1 to 20 do begin if l k: =0; for j: =1 to 20 doif a[i]=a[j] then k: =k+1; end; writeln; writeln(l); for i: =1 to 20 doif i mod 2 = 0 then s: =s+a[i]; writeln(s); end.

var

 x: real;  

 cost: real;  //Стоимость капитала

 i: integer;

 

begin

 cost:= 20;  //Начальная стоимость равна 20  

 writeln('Введите ежегодный прирост в процентах');

 readln(x);  //Вводим ежегодный прирост в процентах

 for i:= 1626 to 2012 do   {Каждый год стоимость капитала увеличивается на стоимость капитала * х / 100}

   cost:= cost + cost * (x / 100);

 writeln('Стоимость капитала составляла бы в этом году:  ', cost : 0 : 5, ' $');  {Выводим стоимость капитала с округлением до 5 знаков после запятой}

end.  

Отметь решение как лучшее)

Объяснение:

4

Самоучитель excel / word

831 подписчик

Урок Excel № 12 - Ввод данных

2 февраля 2018

304 дочитывания

1,5 мин.

Добрый день. Сегодня продолжаем знакомиться с рабочим листом. На очереди сама суть работы Excel - это вычисление. У нас уже есть макет таблицы, которую мы создали в уроке (См. Урок Excel № 11 - Создание первого рабочего листа ). Будем дальше работать с ней.

Урок Excel № 12 - Ввод данных

На этом этапе в столбце В нужно ввести планируемые объемы продаж за каждый месяц. Предположим, что в январе объемы должны составить 50 тыс. руб. и далее должны возрастать каждый месяц на 3,5%.

1. Поместите табличный курсор в ячейку В2, введите с клавиатуры число 50000 или запланированный объем продаж за январь. При этом для того, чтобы число было более “осмысленным”, можно ввести символ доллара и запятую, однако вопросами форматирования мы займемся немного позднее.

Рисунок 1. Добавление данных

Рисунок 1. Добавление данных

2. Чтобы ввести формулу, вычисляющую запланированные объемы продаж в феврале, перейдите в ячейку ВЗ и введите «=В2*103,5%». Затем нажмите клавишу <Enter>, в ячейке должно появиться число 51750. Эта формула умножает содержимое ячейки В2 на 103,5%. Другими словами, объем продаж в феврале будет на 3,5% больше, чем в январе.

Рисунок 2. Ввод формулы

Рисунок 2. Ввод формулы

3. Подобная формула используется для расчета плановых объемов продаж для всех остальных месяцев. Но вместо того, чтобы вводить формулы во все ячейки столбца В, опять воспользуемся средством автозаполнения. Убедитесь, что табличный курсор находится в ячейке ВЗ. Поместите указатель мыши на маркер заполнения так, чтобы он превратился в крестик. Затем нажмите кнопку мыши и перетаскивайте указатель вниз, пока не будут выделены все ячейки от ВЗ до В13 .

Рисунок 3. Протягивание формулы.

Рисунок 3. Протягивание формулы.

В результате всех выполненных действий должен получиться рабочий лист, похожий на тот, что показан на рис.3. Еще раз обращаю ваше внимание на то, что, за исключением ячейки В2, все значения в столбце В получены с формул. Чтобы проверить, как работают эти формулы, введите новое значение в ячейку В2 — во всех других ячейках столбца В должны сразу появиться другие значения. Таким образом, все значения в этом столбце зависят только от одного значения, которое записано в ячейке В2.

Еще раз для закрепления посмотрим как всё работает.

Урок Excel № 12 - Ввод данных

На этом все. Если вам понравился урок ставьте лайк и подписывайтесь на канал чтобы не пропустить следующий

Объяснение: