Dim i As Integer Dim s As Integer Dim d As Integer ' // c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535 For i = 1000 To 9999 s = CInt((CInt(Mid(CStr(i), 1, 1))) ^ 2 + (CInt(Mid(CStr(i), 2, 1))) ^ 2 + (CInt(Mid(CStr(i), 3, 1))) ^ 2 + (CInt(Mid(CStr(i), 4, 1))) ^ 2) If s Mod 2 = 0 Or s Mod 3 = 0 Then d += 1 Next MsgBox(d)
begin Randomize; s := 0; Write('Элементы массива: '); for i := 1 to n do begin x[i] := Random(101) - 50; Write(x[i]:5); if x[i] >= 0 then s := s + sqr(x[i]) end; Writeln(#13#10, 'Сумма квадратов неотрицательных элементов равна ', s) end.
Тестовое решение: Элементы массива: -29 1 -36 50 -29 31 4 28 -25 -1 17 -45 -48 -19 -49 -49 -30 -22 8 18 Сумма квадратов неотрицательных элементов равна 4939
Сначала спрашивайте у пользователя число n, потом заполняйте массив (с проверкой на [-100..100]), потом в цикле проверяйте каждый элемент массива на кратность 5. Параллельно с проверкой на кратность (в том же цикле) кидайте первое кратное число в переменную max, и сравнивайте с это переменной другие числа, кратные 5. Если больше - перезаписываете значение max
Цикл: (counter - счетчик, n - колво чисел в массиве)
max := 0; for counter = 1 To n Do if (Massive[counter] mod 5) = 0 then if Massive[counter] > max then max := Massive[counter];
Dim i As Integer
Dim s As Integer
Dim d As Integer
' // c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535
For i = 1000 To 9999
s = CInt((CInt(Mid(CStr(i), 1, 1))) ^ 2 + (CInt(Mid(CStr(i), 2, 1))) ^ 2 + (CInt(Mid(CStr(i), 3, 1))) ^ 2 + (CInt(Mid(CStr(i), 4, 1))) ^ 2)
If s Mod 2 = 0 Or s Mod 3 = 0 Then d += 1
Next
MsgBox(d)
Жми Лучший