Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Belish
0 / 0 / 0
Регистрация: 16.04.2012
Сообщений: 4
#1

Массив. Определить сумму его элементов - Turbo Pascal

09.05.2012, 19:59. Просмотров 277. Ответов 1
Метки нет (Все метки)

1.написать программу вычисления стоимости некоторого количества яблок(по весу).


2.поменять местами первые и последнюю цифру натурального числа


3.дан массив А(n),состоящий из вещественных чисел,определить сумму его элементов.


4.дана строка ,состоящий из слов,разделенных пробелами.выдать слова,содержащие максимальное количество заданных слов


5.дано натуральное число n.определить первую цифру числа n.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.05.2012, 19:59
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Массив. Определить сумму его элементов (Turbo Pascal):

Массивы. Создайте массив из n элементов и найдите сумму всех его элементов - Turbo Pascal
Создайте массив из n элементов и найдите сумму всех его элементов.Элементы массива вводятся генератором случайных велечин.

Заполнить линейный массив из N элементов числами от -15 до 15 и вывести на экран сумму всех его отрицательных элементов - Turbo Pascal
Заполнить линейный массив из N элементов числами от -15 до 15 и вывести на экран сумму всех его отрицательных элементов. Помогите)

Двумерный массив.Дан массив 5 х 5. Определить сумму элементов тех строк, где диагональный элемент равен нулю и записать их в отдельный массив. - Turbo Pascal
помогите составить программу. во задание:Дан массив 5 х 5. Определить сумму элементов тех строк, где диагональный элемент равен нулю и...

Сформировать случайный массив и посчитать сумму квадратов его элементов - Turbo Pascal
Составьте программу которая сформировав с помощью датчика случайных чисел одномерный массив данных подсчитывает следующие выражения: ...

Получить массив по правилу и найти сумму всех его элементов - Turbo Pascal
Дана матрица ,сотоящая из n строк и n стобцов нужно получить массив С,C,...,C по правилу : С=0 ,если все элементы элементы I-ого столбца...

Дан массив 5 х 5. Определить сумму элементов тех строк, где диагональный элемент равен нулю и записать их в отдельный массив - Turbo Pascal
Помогите пожауйста составить программу,я ни черта не понимаю....=( Дан массив 5 х 5. Определить сумму элементов тех строк, где...

1
CodeR
Фрилансер
3379 / 2781 / 788
Регистрация: 08.02.2012
Сообщений: 6,616
Записей в блоге: 1
09.05.2012, 20:20 #2
Цитата Сообщение от Belish Посмотреть сообщение
2.поменять местами первые и последнюю цифру натурального числа
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Program peres;
Var n:longint;
    i,k:integer;
    s:string;
    t:char;
Begin
    write('Введите число: ');readln(n);
    Str(n,s);
    i:=length(s);
    t:=s[i];
    s[i]:=s[1];
    s[1]:=t;
    Val(s,n,k);
    Writeln('Полученное число: ',n);
    readln;
End.
Добавлено через 4 минуты
Цитата Сообщение от Belish Посмотреть сообщение
3.дан массив А(n),состоящий из вещественных чисел,определить сумму его элементов.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Program mas;
Const n=10;
Var A:array[1..n] of integer;
      i,s:integer;
Begin
      s:=0;
      For i:=1 to n do Begin
       A[i]:=Random(50)-25;
       write(A[i]);
       s:=s+A[i];
      End;
      writeln('Сумма= ',s);
      readln;
End.
Добавлено через 5 минут
Цитата Сообщение от Belish Посмотреть сообщение
5.дано натуральное число n.определить первую цифру числа n.
Pascal
1
2
3
4
5
6
7
8
9
10
Program peres;
Var n,i:longint;
     s:string;
Begin
    write('Введите число: ');readln(n);
    Str(n,s);
    Val(s[1],n,i);
    Writeln('Первое число: ',n);
    readln;
End.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.05.2012, 20:20
Привет! Вот еще темы с ответами:

Ввести массив W (30) и найти сумму его отрицательных элементов (блок-схема) - Turbo Pascal
Ввести массив W(30) и найти сумму его отрицательных элементов. Program Q1; Uses CRT; const N=30;

Создать массив генератором случайных чисел и найти сумму его элементов - Turbo Pascal
Создать массив М(10) генератором случайных чисел из отрезка . И вывести их сумму. решите плз. составьте программу. до завтра уже нужно...

Массив: Найти сумму элементов массива Y(n,m), если его элементы образуются по правилу: Y(I,J)=(2X(I,J)+3)(3X(I,J)-2). - Turbo Pascal
Помогите пожалуйста решить задачу. Очень нужно. Буду очень благодарен. --------------------------- Найти сумму элементов массива...

Дан массив А (10). Определить сумму элементов - Turbo Pascal
Дан массив А (10) Определить сумму элементов


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

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

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