Составить схему алгоритма и программу выявления в массиве A[K] тех элементов, значения которых больше 32

@wasgexxx · Регистрация: 19.04.2015

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

Составить схему алгоритма и программу выявления в массиве A[K] тех элементов, значения которых больше 32 и их порядковые номера.

@JokeR.BY · 19.04.2015, 19:22

Pascal

const
    h = 32;
var
    a: Array[Byte] Of ShortInt;
    i, k: Byte;
begin
    Randomize;
    repeat
        Write('k=');
        ReadLn(k);
    until (k > 0); Dec(k);
    for i := 0 to k do
    begin
        a[i] := Random(199) - 99;
        Write(a[i]:4);
    end;
    WriteLn; WriteLn('Элементы, большие 32:');
    for i := 0 to k do
        if (a[i] > h)
        then
            WriteLn('a[', i + 1, ']=', a[i]);
end.

@wasgexxx · 19.04.2015, 19:26 **[ТС]**

Спасибо!
Составить схему алгоритма и программу определения корня квадратного значений элементов массива Еще одно задание на эту тему)

@wasgexxx 0 / 0 / 0 Регистрация: 19.04.2015 Сообщений: 12
		1
	Составить схему алгоритма и программу выявления в массиве A[K] тех элементов, значения которых больше 32 19.04.2015, 18:18. Показов 1381. Ответов 2 Метки нет (Все метки) Составить схему алгоритма и программу выявления в массиве A[K] тех элементов, значения которых больше 32 и их порядковые номера. 0

@wasgexxx 0 / 0 / 0 Регистрация: 19.04.2015 Сообщений: 12
	19.04.2015, 19:26 [ТС]	3
	Спасибо! Составить схему алгоритма и программу определения корня квадратного значений элементов массива Еще одно задание на эту тему) 0

Опции темы

Составить схему алгоритма и программу выявления в массиве A[K] тех элементов, значения которых больше 32

Решение