Предмет: Информатика,
автор: Revivu26
Встречено 'a', а ожидалось ';'
В чем ошибка в 6 строчке?
program jfsdkp;
var s, i, a:integer;
var k:array [0..10] of integer;
begin
for i:=1 to 11 do
write a[k]:=(' введите текст с клавиатуры ');
s:=0;
for k:=1 to 9 do begin
if 2*a[k]
s := s+ a[k];
a[k] :=2*a[k]
end;
end;
Writeln;
for k:=1 to 9 do
write(s);
end.
Приложения:
Ответы
Автор ответа:
1
Ответ:
write (a[k],' введите текст с клавиатуры ');
Не понял, что ты хочешь сделать этим выводом, и зачем здесь вообще выводится элемент массива, но ошибка в строчке по той причине, что выражение не взято в скобки.
Revivu26:
Я хотела решить задачу, но пока не очень разбираюсь в паскале. Можете пожалуйста сказать, есть ли тут ошибки?
var s, k:integer;
const n=10;
var a:array [0..n] of integer;
begin
a[0]:=(2);
a[1]:=(4);
a[2]:=(9);
a[3]:=(1);
a[4]:=(7);
a[5]:=(2);
a[6]:=(3);
a[7]:=(9);
a[8]:=(7);
a[9]:=(2);
a[10]:=(5);
s:=0;
for k:=1 to 9 do begin
if 2*a[k] s := s+ a[k];
a[k] :=2*a[k]
end;
end;
writeln (s);
end.
var s,k:integer;
var a:array[0..10] of integer;
begin
a[0]:=2;
a[1]:=4;
a[2]:=9;
a[3]:=1;
a[4]:=7;
a[5]:=2;
a[6]:=3;
a[7]:=9;
a[8]:=7;
a[9]:=2;
a[10]:=5;
s:=0;
for k:=1 to 9 do begin
if 2*a[k] < a[k-1]+a[k+1] then begin
s:=s+a[k];
a[k]:=2*a[k];
end;
end;
writeln(s);
end.
Похожие вопросы
Предмет: Английский язык,
автор: victorijasaf
Предмет: Русский язык,
автор: люда128
Предмет: Русский язык,
автор: Приколист666
Предмет: Математика,
автор: shushuivanova
Предмет: История,
автор: HoMM3