Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.92/124: Рейтинг темы: голосов - 124, средняя оценка - 4.92
0 / 0 / 0
Регистрация: 13.12.2013
Сообщений: 3
1

Составить программу, которая заполняет массив а [1..10] случайными целыми числами в диапазоне от 1 до 10

13.12.2013, 23:02. Показов 22940. Ответов 3
Метки нет (Все метки)

составить программу, которая заполняет массив а [1..10] случайными целыми числами в диапазоне от 1 до 10, затем найти произведение элементов с нечетными значениями и количество элементов с четными значениями
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.12.2013, 23:02
Ответы с готовыми решениями:

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

Массив В(15) заполнить целыми случайными числами в диапазоне от 1 до 100
Массив В(15) заполнить целыми случайными числами в диапазоне от 1 до 100. Построить строку маску...

Заполнить массив случайными целыми числами в диапазоне [A, B], найти максимальный четный положительный элемент
Здравствуйте,помогите пожалуйста написать код,спасибо.Напишите программу, которая заполняет массив...

массив из 20 элементов заполняется случайными целыми числами в диапазоне от0 до 100 и выводит на экран в строку. Массив сортируется классическим спосо
массив из 20 элементов заполняется случайными целыми числами в диапазоне от0 до 100 и выводит на...

3
1638 / 1088 / 487
Регистрация: 17.07.2012
Сообщений: 5,339
13.12.2013, 23:16 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var a:array[1..10]of Integer;
i,k:Integer;
p:LongInt;
begin
p:=1;
k:=0;
Writeln('Сгенерированный массив:');
Randomize;
for i:=1 to 10 do
begin
a[i]:=Random(10)+1;
if a[i] mod 2=1 then p:=p*a[i] else k:=k+1;
Write(a[i],' ');
end;
Writeln;
Writeln('Произведение нечетных:',p);
Writeln('Количество четных:',k);
Readln;
end.
Добавлено через 1 минуту

Не по теме:

Как запостить тему, чтобы не получить ответ
Читайте полностью если хотите чтобы вам в дальнейшем помогли...

0
0 / 0 / 0
Регистрация: 13.12.2013
Сообщений: 3
13.12.2013, 23:22  [ТС] 3
составить программу которая заполняет массив а [1..10] случайными целыми числами в диапазоне от 1 до 10, затем изменяет знак элементов с четными индексами на противоположный
0
399 / 378 / 408
Регистрация: 14.09.2013
Сообщений: 1,204
14.12.2013, 00:09 4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
uses crt;
const n=10 ;
var a:array[1..n] of integer;
i:integer;
BEGIN
clrscr;
 for i:=1 to n do
  a[i]:=random(10);
 
   for i:=1 to n do
    write(a[i]:4);
 
    writeln;
 
    for i:=1 to n do
     if i mod 2=0 then
      a[i]:=-a[i];
 
      for i:=1 to n do
       write(a[i]:4) ;
readkey;
END.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.12.2013, 00:09

Заполнить массив из 20 элементов вещественными случайными целыми числами в диапазоне от -10 до +10 и разделить его на два массива
Заполнить массив из 20 элементов вещественными случайными целыми числами в диапазоне от -10 до ...

Заполнить двумерный массив (5,4) целыми случайными числами в диапазоне от 0 до 20 и найти номер строки с наибольшей суммой чисел.
Заполнить двумерный массив (5,4) целыми случайными числами в диапазоне от 0 до 20 и найти номер...

Заполнить массив из 100 элементов случайными целыми числами в диапазоне от 1 до 100
Мне очень нужна помощь, надеюсь откликнетесь... помогите написать, пожалуйста! 1. Заполнить...

Составить программу заполнения одномерного массива случайными числами в диапазоне от 0 до 12
Составить программу заполнения одномерного массива случайными числами в диапазоне от 0 до 12 с...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru