Var a:array [1..N] of integer;
I: integer;
max,min:integer;
k1,k2,z:integer;
begin
k1:=1;
k2:=1;
randomize;
for i:=1 to n do
a[i]:=random(10)+1;
max:=a[1];
min:=a[1];
for i:=1 to n do
begin
if a[i]>max
then
begin
max:=a[i];
k1:=i;
end;
if a[i]<min
then
begin
min:=a[i];
k2:=i;
end;
end;
a[k1]:=min;
a[k2]:=max;
writeln('massiv');
for i:=1 to n do
write(a[i]:4);
readln;
writeln();
end.
Сконструируйте программу замены знака всех элементов с четными индексами в целочисленном векторе Т(m) (m<=100) на противоположный.
program massive;
const n=100;
var a:array[1..n] of integer;
i,m:integer;
begin
writeln('vvedite razmer massiva');
readln(m);
randomize;
for i:=1 to m do
a[i]:=10-random(20);
for i:=1 to m do
if (i mod 2)=0 then a[i]:=a[i]*(-1);
writeln('elementy massiva');
for i:=1 to m do
write(a[i]:4);
readln;
end.
Сконструируйте программу вычисления значений функции F1, аргумент которой задан интервалом целых значений отрезка [a1, b1]. Шаг изменения значений аргумента принять равным единице. Данные для решения: F1=Tg(x), [a1, b1]=[-15,5].
program znach;
var y:real;
I:integer;
begin
writeln('chislo | znachenie ');
for i:=-15 to 5 do
begin
y:=sin(i)/cos(i);
writeln(i:4,y:8:3);
end;
readln;
end.
Сконструируйте программу формирования одномерного массива А(10) по следующему принципу: четные элементы равны квадрату индекса, а нечетные его обратной величине.
Сконструируйте программу для выяснения, имеют ли два прямоугольника, заданные длинами своих сторон, одинаковую площадь; при составлении программы использовать процедуру вычисления площади прямоугольника.
Сконструируйте программу для определения номера месяца, в котором количество пропусков занятий студентом было наименьшим; количество пропусков за каждый месяц в течение года содержится в одномерном массиве.
Сконструируйте программу вычисления суммы арифметической прогрессии (в промежутке от a до n, шаг равен 1; a и n – задаются с клавиатуры).
Сконструируйте программу в системе программирования Delphi для перевода градусов Фаренгейта в градусы Цельсия по формуле c=5/9(f-32).
Сконструируйте программу замены в заданном массиве М(15) нулевых элементов квадратами их индексов.
Сконструируйте программу для подсчета количества отрицательных элементов в каждой строке матрицы размером M*N, элементы которой вводятся с клавиатуры.
Сконструируйте программу в системе программирования Delphi для вычисления суммы нечетных элементов массива размером N×M.
Вычислите сумму геометрической прогрессии (в промежутке от 1 до m, знаменатель q и m – задаются с клавиатуры).
Сконструируйте программу для определения числа сочетаний , используя функцию при вычислении факториала.