Question

Выбери верно записанную программу на языке программирования Паскаль. Программа для нахождения суммы элементов массива. (Количество элементов в массиве — 24). var i,s:integer; begin clrscr; for i:=1 to -8 do begin write('a[',i,']='); read(a[i]); end; s:=0; for i:=1 to -8 do s:=s+a[i]; writeln('s=',s); readkey end. uses crt; var a:array[1..24] of integer; i,s:integer; begin clrscr; for i:=1 to 24 do begin write('a[',i,']='); read(a[i]); end; s:=0; for i:=1 to 24 do s:=s+a[i]; writeln('s=',s); readkey end. uses crt; var a:array[1..-8] of integer; i,s:integer; begin clrscr; for i:=1 to -8 do begin write('a[',i,']='); read(a[i]); end; s:=0; for i:=1 to -8 do s:=s+a[i]; writeln('s=',s); readkey end.

Answer 1

Ответ: Она единственная запустилась без ошибок.

• uses crt;
• var
• a:array[1..24] of integer;
• i,s:integer;
• begin
• clrscr;
• for i:=1 to 24 do
• begin
• write('a[',i,']=');
• read(a[i]);
• end;
• s:=0;
• for i:=1 to 24 do
• s:=s+a[i];
• writeln('s=',s);
• readkey
• end.

Answer 2

Из предложенных вариантов только вторая программа является верно записанной программой на языке программирования Паскаль для нахождения суммы элементов массива. Вот верная программа:

pascalCopy code
uses crt;
var
  a: array[1..24] of integer;
  i, s: integer;

begin
  clrscr;
  for i := 1 to 24 do
  begin
    write('a[', i, ']=');
    read(a[i]);
  end;
  s := 0;
  for i := 1 to 24 do
    s := s + a[i];
  writeln('s=', s);
  readkey;
end.

Эта программа объявляет массив a из 24 целых чисел, заполняет его значениями с клавиатуры и вычисляет их сумму, после чего выводит результат на экран.