М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
17312
17312
09.11.2021 22:15 •  Информатика

Написать программы в паскаль.
1. найти суммы всех положительных и абсолютных значений всех отрицательных элементов массива.

2. найти количество элементов, которые при целочисленном делении на 9 остаток 2, и сумму всех остальных элементов.

3. найти произведение минимального и максимального элементов массива.

👇
Ответ:
bezlikaya1
bezlikaya1
09.11.2021

const

 N=10;

var

 a:array[1..N]of integer;

 i,count,sum,t,max,min:integer;

begin

randomize;

sum:=0; count:=0; t:=0;

max:=-21; min:=21;

for i:=1 to N do

 begin

   a[i]:=random(41)-20;

   write(a[i]:4);

   sum:=sum+abs(a[i]);

   if a[i] mod 9 = 2 then  

     begin

       inc(count);

       t:=t+a[i];

     end;

   if max<a[i] then max:=a[i];

   if min>a[i] then min:=a[i];

 end;

writeln; writeln('Sum: ',sum);

        writeln('Count(x/9=2): ',count);

        writeln('SumOst: ',sum-t);

        writeln('Min: ',min,'  Max: ',max );

        writeln('Min*Max: ',min*max);

end.

4,6(20 оценок)
Открыть все ответы
Ответ:
sannikova04
sannikova04
09.11.2021
// Задача решается длинной арифметикой
VAR
   a,b,c: String;
   i, s: LongInt;

Procedure Sum(var a, b: String);
Var i, p, c1,c2: LongInt;
Begin
   while (Length(a) < Length(b)) do a := '0' + a;
   while (Length(b) < Length(a)) do b := '0' + b;

   p := 0;
   for i := Length(a) downto 1 do begin
      c1 := Ord(a[i]) - 48;
      c2 := Ord(b[i]) - 48;

      a[i] := Chr(48 + (c1 + c2 + p)mod 10);
      p := (c1 + c2 + p) div 10;  
   end;

   if (p > 0) then a := Chr(p + 48) + a;
End;

BEGIN
   a:= '2013';
   b:= '2014';

   for i := 3 to 2014 do begin
      Sum(a, b);
      c := a; a := b; b := c;  
   end;

   Writeln(c);

   s := 0;
   for i := 1 to Length(c) do
      s := s + Ord(c[i]) - 48;

   Writeln('Сумма цифр числа = ', s);
END.
4,5(27 оценок)
Ответ:
ArbuzovAndrey
ArbuzovAndrey
09.11.2021
Я так понимаю, что рассматривается ситуация, когда текстовая информация имеется, а ее надо как-то проанализировать.
Недостатки
 - сложно ставить пометки, мы привыкли делать пометки руками, и в электронном виде это все равно несколько неудобно.
 - самый большой недостаток, это то что нельзя выложить несколько листов и смотреть на них одновременно. Упираемся в размеры монитора и тд.
- усталость глаз от долговременной работы с монитором

Опять таки ко всему можно при если часто приходится делать, но для одноразового случая лучше распечатать информацию
4,8(76 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ