Значение массива A размеров 5 задаются с цикла в данном фрагменте программы:
for I:=1 to 5 do
begin
if ((I mod 3) = 1) or ((I mod 2) = 0) then A[I]:= I * (5 - I)
else A[I]:= I * (4 - I)
end;
Сколько элементов массива будут иметь отрицательные значения?

290

385

Посмотреть ответы 1

Ответы на вопрос:

янамурадян

Информатика

4,8(15 оценок)

// pascalabc.net 3.0, сборка 1128 begin var n: =readinteger('n='); var k: =readinteger('k='); for var i: =n to k do begin var s: =i.tostring; if ((s[1]=s[2]) and (s[1]< > s[3])) or ((s[1]< > s[2]) and ((s[3]=s[1]) or (s[3]= then write(i,' ') end end. тестовое решение: n= 318 k= 427 322 323 330 331 332 334 335 336 337 338 339 343 344 353 355 363 366 373 377 383 388 393 399 400 404 411 414 422 424