PROGRAM A23;
const
max = 42;
var
с:array[1..max]of real;
x:integer;
i:byte;
BEGIN
writeln('Заполнить линейный массив по формуле c[i]=16*x-i/9-7');
write('Введите x='); readln(x);
writeln(' ');
writeln('Массив' );
for i:=1 to max do begin
с[i]:=16*x - i/9 -7;
write(с[i], ' ');
end;
END.
1)const n=5; var a:array[1..n] of byte;k,i:integer;beginwriteln('введите числа , для изменения кол-ва вводимых чисел изменить в 1-ой строчке с 5на любое значение >2 ');for i:=1 to n do readln(a[i]);for i:=1 to n doif a[i] div 10 > a[i] mod 10 then inc(k); write(k);end.
2)const n=5; var a,b:array[1..n] of byte;sr,max,k,i:integer;beginwriteln('для изменения кол-ва чисел изменить в 1-ой строчке с 5на любое значение >2 ');for i:=1 to n do a[i]:=random(100);for i:=1 to n do b[i]:=a[i];for i:=1 to n do max:=max+a[i];sr:=max div n;writeln('начальный массив');for i:=1 to n do writeln(a[i]);write('сред арифм= ',sr);writeln;for i:=1 to n do if sr> b[i] then b[i]:=0;for i:=1 to n do writeln(b[i]);end.
1(2)
2(2)
3(3)
4(т 1,3,5,8)
(Г 2,4,6,7)
(П 9,10,11,12)5 (ф 3,6)
(А 1,2,4,5,7,8)
Файл - удалить, переместить, переименовать
Папка - удалить, переместить, переименовать
Не знаю, что тут еще можно добавить