натйти максимальный по модулю элемент и его порядковый номер. составить программу в паскале
10-11 класс
|
var a: array [0..10] of integer;
i, m: integer;
begin
for i := 0 to 10 do
begin
a[i] := random(50) - 25;
writeln('[', i, '] => ', a[i]);
end;
for i := 0 to 10 do
if (abs(a[i]) > abs(a[m])) then
m := i;
writeln('[', m, '] => ', a[m]);
end.
Другие вопросы из категории
число 35,6410 двоичную, восьмеричную, а также шестнадцатеричную системы.
Ответ проверить обратным переводом. Указание: обдумайте, как проще
перевести из двоичной системы в восьмеричную и шестнадцатеричную.
в одномерный целочисленный массив осуществляет посредством цикла WHILE…DO, а вывод - REPEAT…UNTIL (в скобках указана размерность
массива).
А) Сжать архиватором, передать архив по каналу связи, распаковать.
Б) Передать по каналу связи без использования архиватора.
Какой способ быстрее и насколько, если
– средняя скорость передачи данных по каналу связи составляет 218 бит в секунду,
– объем сжатого архиватором документа равен 80% от исходного,
– время, требуемое на сжатие документа – 35 секунд, на распаковку – 3 секунды?
Дан массив строк без пробелов. Напечатать строки, вторая половина которых не содержит цифры.
Читайте также
Вывести на печать массив и максимальный по модулю элемент.
Найти максимальный по модулю элемент массива А.
Массив я вычислил, а остальное не получается(
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
namespace ConsoleApplication27
{
class Program
{
static void Main(string[] args)
{
int n = 30;
double[] a = new double[30];
for (int i = 0; i <= 20; i++)
{
a[i] = Math.Sqrt(i ^ 2 + 1) - Math.Sin(i / n);
Console.WriteLine("a(" + i + ")=" + a[i]);
}Console.ReadKey();
}
}
}
10]. Необходимо:
определить максимальный по модулю элемент массива; вывести номер (любого, если их несколько) и значение такого элемента; определить, сколько в предложенном массиве таких элементов и вывести их номера.положительным элементомПреобразовать массив таким образом, что бы элементы равные 0, распологались после всех остальных