Question

ПОМОГИТЕ С ИНФОРМАТИКОЙ СРОЧНО,ПОЖАЛУЙСТААА!! Выбери верно записанную программу на языке программирования Паскаль. Программа для нахождения суммы элементов массива. (Количество элементов в массиве — 23). 1)uses crt; var a:array[1..23] of integer; i,s:integer; begin clrscr; for i:=1 to 23 do begin write('a[',i,']='); read(a[i]); end; s:=0; for i:=1 to 23 do s:=s+a[i]; writeln('s=',s); readkey end. 2)var i,s:integer; begin clrscr; for i:=1 to -7 do begin write('a[',i,']='); read(a[i]); end; s:=0; for i:=1 to -7 do s:=s+a[i]; writeln('s=',s); readkey end. 3)uses crt; var a:array[1..-7] of integer; i,s:integer; begin clrscr; for i:=1 to -7 do begin write('a[',i,']='); read(a[i]); end; s:=0; for i:=1 to -7 do s:=s+a[i]; writeln('s=',s); readkey end.

Answer 1

Ответ:

1

Объяснение:

во 2 нет массива, а  3 массив записан не правильно

Answer 2

Из предложенных вариантов верной записью программы на языке программирования Паскаль для нахождения суммы элементов массива (где количество элементов в массиве — 23) является первый вариант:

pascalCopy code
uses crt;

var
  a: array[1..23] of integer;
  i, s: integer;

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

Второй и третий варианты имеют некорректные значения в циклах for, так как они используют отрицательное значение -7 в качестве верхней границы цикла, что является недопустимым.