Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
помогите пожалуста решить задачи в паскале!!!!!
1. Задать массив А[1..16] с помощью генератора случайных чисел положительными и отрицательными числами. Определить минимальный элемент, его номер в массиве, заменить этот элемент элемент числом 1000.
2. Ввести строку S1 с помощью оператора readln. Определить количество гласных и знаков препинания в ней. В строку S2 вводить информацию посимвольно с помощью readkey, конец ввода - первый и последний символ первой строки. Ввести строку S3. Обьединить все строки. Удвлить строку S3 из обьедененной строки.
3. Вводится последовательность чисел. Конец ввода - отрицательное число. Определить количество нечетных чисел, а каждое четное возвести в квадрат.
4. Вводится последовательность символов, конец ввода - знак '!' Определить количество слов, заканчивающихся буквой 'A' (букв 'A', стоящих перед пробелом и знаками конца предложения)
1 | Автор: гоша37 | 2012-11-06, 09:30   |  Репутация: [ + 0 ]
1 | Автор: гоша37 | 2012-11-06, 09:30   |  Репутация: [ + 0 ]
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
2 | Автор: AvoqzT | 2012-12-01, 23:49   |  Репутация: [ + 0 ]
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
3 | Автор: Berestovskiy | 2012-12-02, 20:52   |  Репутация: [ + 211 ]
  • Страница 1 из 1
  • 1
Поиск: