Верно ли, что количество элементов, которые не больше 50, кратно 4

@lisaveta · Регистрация: 02.06.2011

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

1. Дан массив вещественных чисел. Выяснить верно ли, что количество элементов, которые не больше 50, кратно 4.

@S9 · 02.06.2011, 15:04

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

1. Дан массив вещественных чисел. Выяснить верно ли, что количество элементов, которые не больше 50, кратно 4.

Я предположил, что массив одномерный

Pascal

{1. Дан массив вещественных чисел. Выяснить верно ли, что количество элементов, которые не больше 50, кратно 4.}
Program Solution;
 
Const
    N = 10;
    
Var
    A:Array[0..N] Of Real;
    i,k:Integer;
Begin
    k:=0;
    Randomize;
    {Заполняем случайно массив и ищем элементы которые не больше 50}
    For i:=0 To N Do
        Begin
            A[i]:=Random(150);
            Write(A[i]:6:0,' ');
            If A[i] <= 50 Then
                Inc(k);
        End;
    WriteLn;
    If k Mod 4 = 0 Then
        WriteLn('TRUE.  k = ',k)
    Else
        WriteLn('FALSE.  k = ',k);
    ReadLn;
End.

@lisaveta 6 / 0 / 0 Регистрация: 02.06.2011 Сообщений: 5
		1
	Верно ли, что количество элементов, которые не больше 50, кратно 4 02.06.2011, 14:50. Показов 2486. Ответов 1 Метки нет (Все метки) 1. Дан массив вещественных чисел. Выяснить верно ли, что количество элементов, которые не больше 50, кратно 4. 0

	02.06.2011, 15:04

Верно ли, что количество элементов, которые не больше 50, кратно 4

Решение