<span>Вот на Java, в паскаль лень переводить. Если все же нужно, то отпишите в скайп - vasilevich24.
public class zadanie4 {</span>
<span>public static void main(String[] args) {</span><span> .
int a[];</span><span><span>
a=</span>new int [150];</span><span>
System.out<span>.println(</span>"Исходный
массив:");</span><span>
for (int i=0;i<15;i++) {</span><span><span>
a[i]=(</span>int<span>) Math.floor(Math.random()*20)-10; </span></span><span><span> System.</span>out<span>.println(</span>"a["+i+"]="+a[i]);}</span><span>
for (int i=0;i<15;i++){</span><span>
if (a[i]>=-5 && a[i]<=5){</span><span> a[i]=a[i]+1;}}</span><span><span>
System.</span>out.println("Полученный массив:"); </span><span>
for (int i=0;i<15;i++) { </span><span><span> System.</span>out<span>.println(</span>"a["+i+"]="<span>+a[i]);}}} </span></span>
Существуют три вида циклов на языке Pascal:
1) цикл с параметром (с известным числом повторений) for; используется, когда известно, сколько раз выполнится цикл;
2) цикл с предусловием while; используется, когда неизвестно число выполнений цикла и цикл выполняется, пока условие верно;
3) цикл с постусловием repeat; используется, когда неизвестно число выполнений цикла и цикл выполняется до истинности условия.
Примеры.
1) найти сумму первых 10 натуральных чисел:
s:=0;
for i:=1 to 10 do s:=s+i;
write(s);
2) найти сумму всех натуральных четных чисел в промежутке от 7 до 45:
s:=0; i:=8;
while i<45 do
begin
s:=s+i;
i:=i+2
end;
write(s);
3) найти сумму всех натуральных четных чисел в промежутке от 7 до 45:
s:=0; i:=8;
repeat
s:=s+i;
i:=i+2
until i>45;
write(s);
1.
Var a,b,c : Integer;
Begin
Readln(a,b,c);
Writeln((a mod b)*(c div b));
end.
2.
Var a,d,c,k : Integer;
Begin
Readln(a,d,c,k);
Writeln((a+(d-12)*3)*(c-5*k));
end.
нет
например число 546
если средняя цифра то это 4 а крайние это 5 и 6 4<30~~~
если среднее арифм. то это 5+4+6/2 т.е. 15/2 = 7.5 и опять же 7.5<30
Var
a:Array [1..20] Of Integer;
i:Integer;
k:Integer;
Begin
write('Введите количество элементов массива не более 20:');
Read(k);
For i:=1 To k Do
Read(a[i]);
<span>End.</span>