Ответ написан в файле.
Через логическую связку and и or не получится проверял. Только построчно.
//Если нужно будет перевести другую строку в цифры, то не забудь поменять параметр Size. В него нужно будет записать количество символов в строке
Program Test;
const Size = 19;
Var i, tmp: integer; Str, Resultat: string;
Begin
Str := 'yoonmin_in_my_heart';
for i := 1 to Size do
begin
tmp := ord(Str[i]);
Resultat := Resultat + tmp
end;
Writeln(Resultat);
End.
Var ar:array[1..10] of integer;
i:integer;
begin;
for i:=1 to 10 do
begin;
write('Введите ',i,' элемент массива:');
readln(ar[i]);
if ar[i]<0 then ar[i]:=abs(ar[i]);
end;
writeln('Final array:');
for i:=1 to 10 do
write(ar[i]:4);
<span>end.</span>
Устройства ввода - клавиатура, dvd, мышь.
Устройства вывода - dvd, принтер, радио.
Обработка - компьютер, телефон.
Исполнитель-выполняет команды,бумага-носитель информации,звуковая информация-передает звук.