var b:array [1...8] of integer r,q:integer; begin for r;=1to8 do q;=0 for r;=1 to 8 do if b[r] mod 2=0 then write(' ') else q:=q+b(r); for r:=1 to 8 do
5-9 класс
|
write('сумма нечетных чисел равна ',q); for 1 to 8 do writeln(' ',b[r]); end. тут есть ошибка но я хз где она помогите))
Напишите цель задачи. То что у вас написано - полный бред. Который после устранения синтаксических ошибок(а их тут не одна) работать не будет
var
b:array [1..8] of integer;
r,q:integer;
begin
for r:=1 to 8 do
begin
q:=0;
read(b[r]);
end;
for r:=1 to 8 do
if b[r] mod 2=1 then q:=q+b[r];
writeln;
writeln('сумма нечетных чисел равна ',q);
end.
Другие вопросы из категории
самолет
газета
кинофильм
Заранее спасибо!
В turbo pascal.
Читайте также
const A: array [1..6] of integer=(12,-15,14,3,9,10);
for i:=2 to 5 do
begin
if A[i] mod 2=0 then write (A[i]:3);
end.
2. Определить,что распечатает следующая программа:
var a: array[1..5,1..5]of integer,i,j; integer;
begin
for i:=1 to 5 do begin
for j:=1 to 5 do begin
if i=5-j+1 then a[i,j]:=0
else a [i,j]:=0;
write(a[i,j]:2);
end;
writeln;
end; end.
3. Дан линейный массив a [l..n], содержащий целые числа. Вычислить сумму чисел делящихся одновременно на 5 и на 3 и распечатать номера таких чисел
4.Дан линейный массив a [l..n], содержащий целые числа. Преобразовать элементы массива по следующему правилу : если элемент положительный,то заменить его на 1, а если отрицательный - возвести в квадрат
min,max:integer; begin ClrScr; randomize; writeln('Исходный массив:'); for i:=1 to Nmax do begin m[i]:=random(20)-10; write(m[i],' '); end; max:=m[1]; min:=m[1]; i_min:=1; i_max:=1; for i:=1 to Nmax do begin if m[i]>max then begin max:=m[i]; i_max:=i; end; if m[i]
Do
Read(a[i]);
For i:=1 to 20 Do
a[i]:=a[i]/10;
For i:=1 to 20 Do
Write(a[i])
End.
Поменять местами первый элемент масива и максимальный.
Заранее Спасибо) Помогите пожалуйста) Очень срочно!!)
var a: array [1..20] of integer;