Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
НАСТоящаЯ
0 / 0 / 0
Регистрация: 25.11.2011
Сообщений: 2
1

составьте программу, которая фотрмирует массив из пятнадцати случайных целых чисел от -20 до 20

29.11.2011, 00:21. Просмотров 953. Ответов 1
Метки нет (Все метки)

составьте программу, которая фотрмирует массив из пятнадцати случайных целых чисел от -20 до 20 и: а) чётные числа делит на два, а нечётные - умножает на три; б) отрицательные числа возводит в квадрат, а из неотрицательных извлекает квадратный корень. Последнюю я вроде решила, но она не идёт((

Добавлено через 16 минут
ну пожалуйста.....

Добавлено через 19 секунд
ну пожалуйста.....

Добавлено через 2 минуты
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.11.2011, 00:21
Ответы с готовыми решениями:

Составьте программу,которая формирует массив из 16 случайных целых чисел от -20 до 20 и находит элементы с нулевыми значениями
Составьте программу,которая формирует массив из 16 случайных целых чисел от -20...

массив из пятнадцати случайных целых чисел от -20 до 20
Составьте программу, которая формирует массив из пятнадцати случайных целых...

Программу, которая заполнит двухмерный массив 5*4 рядом целых случайных чисел от 0 до 20
Очень нужная помощь. Нужно написать: 2. Программу, которая заполнит...

Составить программу, которая формирует массив из 7 случайных целых чисел, принадлежащих промежутку [-14;9], и вычисляет произведение нечетных чисел.
Составить программу, которая формирует массив из 7 случайных целых чисел, ...

Составьте программу, которая производит суммирование произвольного количества целых чисел, вводимых с клавиатуры
Концом последовательности служит ввод отрицательного числа. Программу составьте...

1
Глупыш
16 / 16 / 23
Регистрация: 20.06.2011
Сообщений: 34
29.11.2011, 00:22 2
Лучший ответ Сообщение было отмечено как решение

Решение

А)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var a:array[1..100] of integer;
i:integer;
begin
for i:=1 to 15 do begin
a[i]:=random(41)-20;
write(a[i],' ');  end;
writeln;
for i:=1 to 15 do begin
if a[i] mod 2 =0 then a[i]:=a[i] div 2
else
a[i]:=a[i]*3;
write(a[i],' ');end;
end.
Б)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var a:array[1..100] of real;
i:integer;
begin
for i:=1 to 15 do begin
a[i]:=random(41)-20;
write(a[i],' ');  end;
writeln;
for i:=1 to 15 do begin
if a[i]>0 then a[i]:=sqrt(a[i])
else
a[i]:=sqr(a[i]);
write(a[i]:3:2,' ');end;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.11.2011, 00:22

Составить программу, которая формирует массив из 15 случайных чисел и:
Все элементы кратные 3 заменить на сумму всех элементов массива.

Дан двумерный массив целых чисел. Написать программу, которая:
Дан двумерный массив целых чисел. Написать программу, которая: для каждого...

Написать программу, которая запрашивает массив из N целых чисел, а затем складывает все элементы
Написать программу, которая запрашивает массив из N целых чисел, а затем...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru