clear; clc;
retezec = input('Zadejte øetìzec:', 's');
oddel   = input('Zadejte oddìlovaè:', 's');
if isempty(retezec)
    fprintf('''retezec'' is empty\n');
    return;
end
if isempty(oddel)
    oddel = ' ';
    fprintf('space ('' '') is used instead of nothing\n');
end
 
Cell   = strsplit(retezec,oddel);
VS     = regexp(Cell, '[aeiou]');
Vowels = zeros(length(VS), 1);
for k = 1:length(VS)
    Vowels(k) = length(VS{k}); 
end

celldisp(Cell);
fprintf('%s\n', mat2str(Vowels));
