Регистрация
Kazhyal
06.10.2021 13:25
Информатика
Есть ответ 👍

Заданы одномерные массивы a и b. найти сумму положительных элементов массива b и заменить на это значение все элементы массива а расположение перед максимальным элементом массива

120
269
Посмотреть ответы 2

Ответы на вопрос:

angelinamikhay
angelinamikhay
4,8(55 оценок)
Pascalabc.net 3.3.5, сборка 1660 от 20.04.2018 внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(readinteger('n=',50); a.println;   var b: =arrrandom(readinteger('n=',50); b.println;   var sp: =b.where(t-> t> 0).sum;   var im: =a.indexmax;   if im> 0 then begin a: =arrfill(im,sp)+a[im: ]; a.println end   else writeln('максимальный элемент стоит первым') end. пример n= 15 -34 -10 30 16 -36 35 10 39 21 50 29 -41 4 25 -28 n= 13 -36 -6 -3 5 -34 -19 -35 -23 2 49 -8 24 -3 80 80 80 80 80 80 80 80 80 50 29 -41 4 25 -28
alexeytutkevicp09cxb
alexeytutkevicp09cxb
4,4(97 оценок)

var

  a, b, k, m: integer;

begin

  write('a = '); readln(a);

  write('b = '); readln(b);

  write('k = '); readln(k);

  write('m = '); readln(m);

  if b / a > m / k then

      writeln('серая ткань дороже синей на ', b / a - m / k, ' тенг за метр')

  else

      writeln('синяя ткань дороже серой на ',  m / k - b / a , ' тенг за метр');

end.

Популярно: Информатика