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

Заполнить одномерный массив случайными числами и вывести его на экран

07.12.2012, 06:59. Показов 3916. Ответов 1
Метки нет (Все метки)

1)заполнить одномерный массив случайными числами и вывести его на экран.Выбрать минимальный элемент в массиве
2)В массиве заданы фамилии 10 студентов и их рост фамилии в символьном массиве ,рост-в числовом.Вывести фамилии тех студентов рост которых больше 185 см.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.12.2012, 06:59
Ответы с готовыми решениями:

Одномерный массив заполнить целыми случайными числами и вывести на экран в виде строки
Не могли бы вы мне помочь??? 1.одномерный массив заполнить целыми случайными числами и вывести на...

Заполнить одномерный массив случайными числами без указания диапазона и вывести на экран консольного вывода
Заполнить одномерный массив случайными числами без указания диапазона и вывести на экран...

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

Дан одномерный массив из 10 целых чисел, записать его случайными числами из отрезка от -5 до 5 и вывести на экран в строчку
Помогите решить задачку, пожалуйста, заранее благодарю. Дан одномерный массив из 10 целых чисел,...

1
Фрилансер
3413 / 2810 / 3000
Регистрация: 08.02.2012
Сообщений: 8,191
Записей в блоге: 1
07.12.2012, 07:52 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Цитата Сообщение от sweta991 Посмотреть сообщение
1)заполнить одномерный массив случайными числами и вывести его на экран.Выбрать минимальный элемент в массиве
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Var A:array[1..100] of integer;
    i,imin,n:byte;
Begin
    Randomize;
    write('Введите размерность: ');readln(n);
    For i:=1 to n do
    Begin
      A[i]:=random(31)-15;
      write(A[i]:4);
    End;
    imin:=1;
    For i:=1 to n do
     if A[i]<A[imin] then imin:=i;
    writeln;
    writeln('Min = ',A[imin]);
    readln;
End.
Цитата Сообщение от sweta991 Посмотреть сообщение
2)В массиве заданы фамилии 10 студентов и их рост фамилии в символьном массиве ,рост-в числовом.Вывести фамилии тех студентов рост которых больше 185 см.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Const n=3;
Var A:array[1..n] of integer;
    B:array[1..n] of string;
    i:byte;
Begin
    Randomize;
    For i:=1 to n do
    Begin
      writeln('Информация о ',i,'-ом ученике ');
      write('Фамилия: ');readln(B[i]);
      A[i]:=random(150)+100;
      writeln('Рост: ',A[i]);
    End;
    writeln('Ученики у которых рост больше 185');
    For i:=1 to n do
     if A[i]>185 then writeln(B[i]);
    readln;
End.
Добавлено через 28 секунд
Один вопрос=одна тема учим правила!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.12.2012, 07:52

Заполнить одномерный массив m[n] случайными целыми числами от a до b и вывести его на экран.Значения a,b,c,d,n взять из таблицы.
Заполнить одномерный массив m случайными целыми числами от a до b и вывести его на экран.Значения...

Заполнить одномерный массив случайными числами. Найти и вывести на экран наибольший его элемент и порядковый номер
Help please! Заполнить одномерный массив случайными числами. Найти и вывести на экран наибольший...

Заполнить одномерный массив n случайными числами от -15 до 3. Вычислить и вывести на экран
Заполнить одномерный массив n случайными числами от -15 до 3. Вычислить и вывести на экран

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


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

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

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