For m:=2 to 10 do...?
5-9 класс
|
В чем вопрос? цикл прокрутится 9 раз.
Другие вопросы из категории
занял второе место. 2) Ксандр занял второе место, а Питер был последним. 3) Второе место занял Билл, а Джордж оказался третьим. 4) На первом месте был Джордж, а Майкл был четвертым. 5) Майкл был четвертым, а Билл вторым. Известно, что в каждом высказывании только одно утверждение верно, а второе — нет. Определите, кто занял второе место и на каком месте был Билл. Приведите рассуждения по поводу истинности и ложности высказываний
Читайте также
{n} := (n-80)*(n-80);
for n:=1 to 100 do
B {101-n} :=A {n};
Какой элемент массива В будет наибольшим?
1) В {1} 2) B {21} 3) B {80} 4) B {100}
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.
типо по такой же системе которую щас напишу! program Maximum; i,n,max:integen; begin writeln ( 'введи элементы массива для поиска максимума'); for i:=1 to 10 do begin write ('a [', i ,']=');readln (a [ i ] ) ;end; max:=a[1]; for i = 2 to 10 do if a [ i ] > max then begin max:=a [ i ] ; n:= i ; end; writeln ('найти наибольший элемент ',max ,' под номером ', n); вот наподобие этого примера нужно построить мою задачу! в заданной последовательности целых чисел определите сумму элементов кратных 10. Помогите пожалуйста!!!
изменяеться: for i:=0 to 10 do A[i]:= i + 1; for i:=1 to 10 do A[i]:= A[i-1]; Как изменяються элементы этого массива? 1) все элементты, кроме последнего, сдвинаются на 1 элемент вправо 2) все элементы, кроме первого, сдвигаются на 1 элемен влево 3) все элементы окажутся равны 1 4) все элементы окажутся равны своим индексам
Dat[5] := 14; Dat[6] := 21;
Dat[7] := 28; Dat[8] := 11;
Dat[9] := 15; Dat[10] := 35;
m := 50;
for k := 1 to 10 do
if Dat[k]<m then
begin
m := Dat[k]
end;
writeln(m);
End.