Найти сумму не положительных, произведение неотрицательных элементов, поменять местами первый и последний элементы

@Julia_1 · Регистрация: 12.11.2015

Студворк — интернет-сервис помощи студентам

Здравствуйте, нужно перевести с Паскаля на Бейсик.
Сама задача:
В одномерном массиве х(10) найти сумму не положительных, произведение неотрицательных элементов, поменять местами первый и последний элементы.

Pascal

var
  mas: Array [1..10] of integer;
  pr, s, t: integer;
 
begin
  for i: integer := 1 to 10
  do 
  begin
    pr := 1;
    s := 0;
    read(mas[i]);
    if(mas[i] <= 0)
      then s += mas[i];
    if(mas[i] >= 0)
      then pr *= mas[i];
  end;
  t := mas[1];
  mas[1] := mas[10];
  mas[10] := t;
  writeln('Summa = ', s, ' Proizvedenie = ', pr);
  for i: integer := 1 to 10
    do write(mas[i], ' '); 
end.

@ZX Spectrum-128 · 30.01.2019, 09:15

QBasic/QuickBASIC

CONST n = 10
DIM a(n)
 
CLS
RANDOMIZE TIMER
PRINT "Array A:"
FOR i = 1 TO n
  a(i) = -n \ 2 + INT(RND * n)
  PRINT a(i);
NEXT
PRINT
 
p = 1
sum = 0
k = 0
FOR i = 1 TO n
IF a(i) < 0 THEN
  sum = sum + a(i)
END IF
IF a(i) > 0 THEN
  p = p * a(i)
  k = k + 1
END IF
NEXT
 
PRINT "Sum: ", sum
IF k <> 0 THEN
  PRINT "Mult: ", p
ELSE
  PRINT "Net Takih chisel!"
END IF
 
k = a(n)
a(n) = a(1)
a(1) = k
 
PRINT "New Array: "
FOR i = 1 TO n
  PRINT a(i);
NEXT

Опции темы