Решить в паскале а) среди всех двухзначных чисел найти количество чисел, кратных «5» б) в массиве из 10 целочисленных элементов найти сумму элементов, оканчивающих на цифру «3» . массив заполняется случайным образом числами из диапазона [-10; 10]. в ответе вывести сам массив и искомую сумму.

219

485

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

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

ангел810

Информатика

4,4(43 оценок)

1) const n=10; var a: array[1..n]of integer; i,k: integer; begin for i: =1 to n do begin readln(a[i]); ; ; if a[i]mod 5=0 then k: =k+1; end; writeln; writeln(k); end. 2) const n=10; var a: array[1..n]of integer; i,s: integer; begin for i: =1 to n do begin a[i]: =random(21)-10; write(a[i]: 4); if (abs(a[i]mod 10)=3) then s: =s+a[i]; end; writeln; writeln(s); end.

polinaasya

Информатика

4,5(54 оценок)

Uses crt; var mas: array [1..10] of integer; i,a: integer; begin clrscr; writeln('input massive'); a: =0; for i: =1 to 10 do begin readln(mas[i]); if (i mod 2 =0) and (mas[i] < 0) then a: =a+1; end; writeln('answer ',a); end. number 2 uses crt; var mas: array [1..10] of integer; i,a,k: integer; begin clrscr; writeln('input massive'); for i: =1 to 10 do readln(mas[i]); i: =1; while (mas[i]< > 0) and (i< 10 ) do i: =i+1; k: =1; if i < 10 then begin for a: =i to 10 do k: =k*mas[a]; writeln(k); end else writeln('nulya net'); end.