Предмет: Информатика, автор: 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.

Приложения:

Ответы

Автор ответа: lenyashastin
1

Ответ:

write (a[k],' введите текст с клавиатуры ');

Не понял, что ты хочешь сделать этим выводом, и зачем здесь вообще выводится элемент массива, но ошибка в строчке по той причине, что выражение не взято в скобки.


Revivu26: Я хотела решить задачу, но пока не очень разбираюсь в паскале. Можете пожалуйста сказать, есть ли тут ошибки?
Revivu26: program jfsdkp;
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.
lenyashastin: Попробую решить задачу, отпишусь по результатам
lenyashastin: Получается:

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.
lenyashastin: Отсюда s = 12.
Revivu26: Спасибо большое!)
Похожие вопросы
Предмет: Русский язык, автор: люда128
Предмет: Русский язык, автор: Приколист666