Ошибка 1. Объявлен массив с типом данных значений string, хотя нужно заполнять массив целыми числами, а потом находить их сумму. Необходимо заменить тип string на integer.
Ошибка 2. Цикл не выполнится ни один раз, т.к. неправильно задан параметр. Необходимо либо написать конструкцию так: For i:=n downto 1 do , либо For i:=1 to n do .
Исправленный код:
Program summa;
Var a: array[1..100] of integer;
i, n: integer;
s: integer;
Begin
Write ('n='); Readln (n);
For i:=1 to n do
begin
write ('введите число');
readln (a[i]);
s:=s+a[i];
end;
writeln('сумма элементов равна ',s);
End.
Borshchev1820
26.02.2020
#include "stdafx.h" #include < iostream> using namespace std; int main() { int i; int sum = 0; const int size = 10; int main_mass[size]; for (i = 0; i < size; i++) { cout < < "enter the number " < < i < < " of " < < size < < " : "; cin > > main_mass[i]; sum += main_mass[i]; }; cout < < "summa vseh elementov massiva = " < < sum < < " "; system("pause"); }
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Перевод из pascal в python var a, i: integer; begin for i: =100 to 999 do begin a: =i mod 100; if 7*a=i then writeln(i); end; end.
Ошибка 1. Объявлен массив с типом данных значений string, хотя нужно заполнять массив целыми числами, а потом находить их сумму. Необходимо заменить тип string на integer.
Ошибка 2. Цикл не выполнится ни один раз, т.к. неправильно задан параметр. Необходимо либо написать конструкцию так: For i:=n downto 1 do , либо For i:=1 to n do .
Исправленный код:
Program summa;
Var a: array[1..100] of integer;
i, n: integer;
s: integer;
Begin
Write ('n='); Readln (n);
For i:=1 to n do
begin
write ('введите число');
readln (a[i]);
s:=s+a[i];
end;
writeln('сумма элементов равна ',s);
End.