Напишите программу, печатающую максимальный элемент массива из 10 элементов.

@Classic36 · Регистрация: 02.05.2010

Author24 — интернет-сервис помощи студентам

Помогите решить задачки:
1) Напишите программу, печатающую максимальный элемент массива из 10 элементов.
2) Дан массив из n элементов. Найдите среднее арифметическое его элементов.
Заранее большое спасибо!!!

@TAVulator · 10.05.2010, 09:34

Сообщение от Classic36

2) Дан массив из n элементов. Найдите среднее арифметическое его элементов.

Delphi

summ:=0;
for i:=1 to n do
 summ:=summ+A[i];
summ:= summ/n;

Сообщение от Classic36

1) Напишите программу, печатающую максимальный элемент массива из 10 элементов.

Delphi

max:= A[1];
for i:=2 to 10 do
if A[i]>max then max:=A[i];
writeln(max);

@Classic36 · 10.05.2010, 09:40 **[ТС]**

Извените если не сложно напишите пожалуйста полный текст программ. А то что-то не получается

@TAVulator · 10.05.2010, 09:42

Сообщение от Classic36

А то что-то не получается

что не получается? это сам алгоритм решения твоих задач. не получается добавить var, begin, end ?

@Classic36 · 10.05.2010, 09:54 **[ТС]**

Спасибо нашел ошибку!

@Classic36 0 / 0 / 0 Регистрация: 02.05.2010 Сообщений: 36
		1
	Напишите программу, печатающую максимальный элемент массива из 10 элементов. 10.05.2010, 09:27. Показов 965. Ответов 4 Метки нет (Все метки) Помогите решить задачки: 1) Напишите программу, печатающую максимальный элемент массива из 10 элементов. 2) Дан массив из n элементов. Найдите среднее арифметическое его элементов. Заранее большое спасибо!!! 0

@Classic36 0 / 0 / 0 Регистрация: 02.05.2010 Сообщений: 36
	10.05.2010, 09:40 [ТС]	3
	Извените если не сложно напишите пожалуйста полный текст программ. А то что-то не получается 0

@TAVulator ⚽ 4190 / 1291 / 237 Регистрация: 27.07.2009 Сообщений: 3,962
	10.05.2010, 09:42	4
	Сообщение от Classic36 А то что-то не получается что не получается? это сам алгоритм решения твоих задач. не получается добавить var, begin, end ? 0

@Classic36 0 / 0 / 0 Регистрация: 02.05.2010 Сообщений: 36
	10.05.2010, 09:54 [ТС]	5
	Спасибо нашел ошибку! 0