|
помогите пожалуста решить задачи в паскале!!!!!
|
|
1. Задать массив А[1..16] с помощью генератора случайных чисел положительными и отрицательными числами. Определить минимальный элемент, его номер в массиве, заменить этот элемент элемент числом 1000.
2. Ввести строку S1 с помощью оператора readln. Определить количество гласных и знаков препинания в ней. В строку S2 вводить информацию посимвольно с помощью readkey, конец ввода - первый и последний символ первой строки. Ввести строку S3. Обьединить все строки. Удвлить строку S3 из обьедененной строки.
3. Вводится последовательность чисел. Конец ввода - отрицательное число. Определить количество нечетных чисел, а каждое четное возвести в квадрат.
4. Вводится последовательность символов, конец ввода - знак '!' Определить количество слов, заканчивающихся буквой 'A' (букв 'A', стоящих перед пробелом и знаками конца предложения)
|
|
|
|
1. Задать массив А[1..16] с помощью генератора случайных чисел положительными и отрицательными числами. Определить минимальный элемент, его номер в массиве, заменить этот элемент элемент числом 1000.
var
a:array[1..16]of Integer;
i,min:Integer;
begin
Randomize;
for i:=1 to 16 do begin
a[i]:=Random(30)-15;
write(a[i], ' ');
end;
min:=1;
for i:=2 to 16 do
if a[i]<a[min] then
min:=i;
Writeln('minimum',' ',min);
a[min]:=1000;
for i:=1 to 16 do
Writeln(a[i], ' ');
readln
end.
sLip
|
|
|
|
var
a:array[1..16]of integer;
i,min,q:byte;
begin
randomize;
min:=high(min);
for i:=1 to 16 do begin
a[i]:=random(a[i])-15;
if a[i]<min then begin
q:=i;min:=a[i];end;end;
a[q]:=1000;
for i:=1 to 16 do
write(a[i],' ');
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
