Отключить ток
отсоединить пострадавшего
оказать первую медпомощь
(это ты должна уметь)
помог - оцени ;)
Program sto;Vara,b:integer;BeginReadln(a);b:= 100 - a; //Вычисляем остаток которы нужно прибавить к числу, и записываем его в переменную b;Writeln('Если к вашему числу прибавить: ',b,', то в результате будет 100'); //Выводим ответ пользователю;End.
Program qq;
uses crt;
var A:array [1..20] of integer; i: integer;
begin
for i:=1 to 20 do
readln (a[i]); //ввод массива. Не указали откуда дан массив, так что введем его через enter
for i:=1 to 20 do
if a[i]<10 then
a[i]:=0; //сравним каждый элемент массива с 10. если меньше 10, то заменим на ноль
for i:=1 to 20 do
write (a[i], ' '); //Вывод массива на экран
<span>end.</span>