Опубликовано 5 лет назад по предмету Информатика от v777or777

дан одномерный массив,получить удвоенную сумму всех положительных членов массива и найти сумму чисел,которые не четные и отрицательные пожалуйста умоляю помогите мне

Ответ

Ответ дан Эклео

const n=10;
var
s1,s2,i: integer;
var a: array[1..n] of integer;
begin
s1:=0; s2:=0;
writeln ('Исходный массив');
for i:=1 to n do begin
a[i]:=random(-10,10);
write (a[i]:3);
if a[i]>=0
then s1:=s1+a[i]
else if a[i] mod 2<>0
then s2:=s2+a[i];
end;
s1:=s1*2;
writeln;
writeln ('Удвоенная сумма положительных элементов = ',s1);
writeln ('Сумма нечетных отрицательных элементов = ',s2);
end.

--------------------Результат:----------------------

Исходный массив
-2 0 8 -6 -1 6 7 -4 -7-10
Удвоенная сумма положительных элементов = 42
Сумма нечетных отрицательных элементов = -8
1. Ответ
  
  Ответ дан Эклео
  
  const n=10;
  var
  s1,s2,i: integer;
  var a: array[1..n] of integer;
  begin
  s1:=0; s2:=0;
  
  for i:=1 to n do begin
  write ('Введите ',i,'-й элемент массива: ');
  read (a[i]);
  if a[i]>=0
  then s1:=s1+a[i]
  else if a[i] mod 2<>0
  then s2:=s2+a[i];
  end;
  s1:=s1*2;
  writeln;
  writeln ('Удвоенная сумма положительных элементов = ',s1);
  writeln ('Сумма нечетных отрицательных элементов = ',s2);
  end.
2. Ответ
  
  Ответ дан v777or777
  
  спасибо большое
3. Ответ
  
  Ответ дан Эклео
  
  заработало?) Не за что.
4. Ответ
  
  Ответ дан v777or777
  
  нет
5. Ответ
  
  Ответ дан v777or777
  
  жалко,что фотографии нелбзя отправлять,мне информатик ее поменял и сказал,что рандом там не нужен,он поменял ее она всеровно не работает,одни нули какие-то

Самые новые вопросы

Математика - 5 лет назад

Решите уравнения: а) 15 4 ∕19 + x + 3 17∕19 = 21 2∕19; б) 6,7x - 5,21 = 9,54

Помогите решить задачи на паскаль.1) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти произведение всех элементов массива.2) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти сумму четных элементов массива.3) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти максимальный элемент массива.4) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти максимальный элемент массива среди элементов, кратных 3.

География - 5 лет назад

Почему япония - лидер по выплавке стали?

Математика - 5 лет назад

Чему равно: 1*(умножить)х? 0*х?

Русский язык - 5 лет назад

В каком из предложений пропущена одна (только одна!) запятая?1.она снова умолкла, точно некий внутренний голос приказал ей замолчать и посмотрела в зал. 2.и он понял: вот что неожиданно пришло к нему, и теперь останется с ним, и уже никогда его не покинет. 3.и оба мы немножко удовлетворим свое любопытство.4.впрочем, он и сам только еле передвигал ноги, а тело его совсем застыло и было холодное, как камень. 5.по небу потянулись облака, и луна померкла.

Информация